NonStop” ‘Systems a | “ip 


NonStop SQL Benchmark 
Workbook 


Data Management Library 


84160 


“A TANDEM 
SOFTWARE 
PUBLICATIONS 


TANDEM SOFTWARE NOMENCLATURE 


The term “NonStop™ systems” refers to all configurable hardware-software combinations for NonStop II™, 
NonStop TXP™, NonStop VLX™, NonStop EXT™, NonStop EXT10™, and NonStop EXT25™ systems. 


The term “NonStop 1+ ™ system” refers to the combination of NonStop 1+ processors with all software that 
runs on them. 


Some software manuals pertain to the NonStop systems only, others pertain to the NonStop 1+ system only, 
and still others pertain both to the NonStop systems and to the NonStop 1+ system. The cover and title page 
of each manual indicate the system (or systems) to which the contents of the manual pertain. 


Some older manuals were written for both the NonStop systems and the NonStop 1+ system but are now 


current only for the NonStop 1+ system. In these cases, a separate more recent manual exists for the NonStop 
systems only. 


WORKBOOK OF THE TOPGUN BENCHMARK 
DEMONSTRATING NonStop SQL PERFORMANCE 
ON 32 TANDEM VLX PROCESSORS 
AND 
AUDITED BY CODD AND DATE CONSULTING GROUP 


6 March 1987 


AUDITOR: 
Tom Sawyer 


BENCHMARKERS 3: 
Dan Adachi 
Nhan Chu 
Frank Clugage 
Jim Enright 
Ray Glasstone 
Jim Gray 
Gerhard Huff 
Jeff Laplante 
Jack Mauger 
Frank O'Donnell 
Harald Sammer 
Praful Shah 
Scott Sitler 
Thomas Wilkens 


Copyright (c) 1987 by Tandem Computers Incorporated 


aR any pen 2 RAREST NAT NA TRESS ALI SI ON 2S NS I OA ATES STI I I TE OTS OE PT TLE A GD EI LLL OIE LEE II AE TEL DLE TEEN OTE EN ELLY ITT LETS, 
Copyright © 1987 by Tandem Computers Incorporated. 
Printed in the United States of America. 
93 92 91 90 89 88 87 10987654321 


All rights reserved. No part of this document may be reproduced in any form, including photocopying or translation to 
another language, without the prior written consent of Tandem Computers Incorporated. 


The following are trademarks or service marks of Tandem Computers Incorporated: 


6AX ENFORM GUARDIAN NonStop EXT PS MAIL Tandem 
BINDER ENSCRIBE GUARDIAN 90 NonStop EXT10 PS TEXT EDIT TGAL 
CROSSREF ENVOY GUARDIAN 90XF NonStop EXT25 PS TEXT FORMAT THL 
DATABOLT ENVOYACP/XF INSIGHT NonStop SQL RDF TIL 

DDL. EXCHANGE INSPECT NonStop I SAFE TMF 
DYNABUS EXPAND MEASURE NonStop TXP SAFEGUARD TRANSFER 
DYNAMITE FASTSORT MULTILAN NonStop VLX SAFE-T-NET VIEWPOINT 
ENABLE FAXLINK NETBATCH PATHMAKER T-TEXT WORDLINK 
ENCOMPASS FOX NonStop PCFORMAT TACL XL8 
ENCORE FOXII NonStop 1+ PERUSE TAL XRAY 


HYPERchannel is a trademark of Network Systems Corporation. 
IBM and IBM PC are registered trademarks of International Business Machines Corporation. 


Textpack4, Textpack6, IBM Displaywriter, DisplayWrite 2, DisplayWrite 3, Displaywriter communication software, and 
CICS are trademarks of International Business Machines Corporation. 


LATTICE is a registered trademark of Lattice, Inc. 
MultiMate is a trademark of Ashton-Tate, Inc. 
UNIX is a trademark of AT&T. 


Wang OIS workstation, Wang VS workstation, Wang OIS telecommunication software, and Wang VS telecommunication 
software are trademarks of Wang, Inc. 


TABLE OF CONTENTS 


AUDITOR'S FINAL REPORT 
BENCHMARK OVERVIEW 
AUDITOR'S REQUIREMENTS 


DEBIT CREDIT TRANSACTION DEFINITION 
AUDITOR'S TEST SCENARIO 
BENCHMARK REPORT 


SYSTEM SIZING 
SYSTEM PRICING 


32 VLX + EXT-10 
response time 


k 


229TPS 
220TPS 
206TPS 
175TPS 
143TPS 


Driver 
Driver 
Driver 
Driver 
Driver 


RESULTS - SQL 


curves 
system 
system 
system 
system 
system 


report 
report 
report 
report 
report 


CPU utilization by process type 
CPU utilization by process type by cpu 
Disc utilization per tansaction 
Communication line utilization 


eo 


ny VLX SQL RESULTS - SQL 
response time curves 


117TPS 
112TPS 
103TPS 


- 87TPS 


72TPS 


Driver 
Driver 
Driver 
Driver 
Driver 


system 
system 
system 
system 
system 


report 
report 
report 
report 
report 


CPU utilization by process type 

CPU utilization by process type by cpu 
Disc utilization per tansaction 
Communication line utilization 


eo 


ll. 


VLX RESULTS - SQL 


response time curves 


61TPS 
60TPS 
59TPS 
56TPS 
48TPS 
40TPS 


Driver 
Driver 
Driver 
Driver 
Driver 
Driver 


system 
system 
system 
system 
system 
system 


report 
report 
report 
report 
report 
report 


CPU utilization by process type 
CPU utilization by process type by cpu 
Disc utilization per tansaction 
Communication line utilization 


ee ee ©) 


12. 


VLX RESULTS - ENSCRIBE 


response time curves 


60TPS 
59TPS 
58TPS 
56TPS 
48TPS 
40TPS 


Driver 
Driver 
Driver 
Driver 
Driver 
Driver 


system 
system 
system 
system 
system 
system 


report 
report 
report 
report 
report 
report 


a ee ee aro) 


LISTING OF 
LISTING OF 
LISTING OF 
LISTING OF 


CPU utilization by process type 
CPU utilization by process type by cpu 
Disc utilization per tansaction 
Communication line utilization 


AUDITOR'S TRANSACTION 
SIMULATOR PROGRAM 
SIMULATOR REPORT GENERATOR 
SIMULATOR SCRIPT GENERATOR 


A SAMPLE SIMULATOR SCRIPT 
A SAMPLE SIMULATOR REPORT 


LISTING OF 
LISTING OF 
LISTING OF 
LISTING OF 
LISTING OF 


REQUESTOR PROGRAM 

SQL DATABASE DEFINITION 
ENSCRIBE DATABASE DEFINITION 
SQL SERVER PROGRAM 

ENSCRIBE SERVER PROGRAM 


Ad 


Codd and Date 
Consulting Group 


Mr. Frank Clugage 

Tandem Computers Incorporated 

19191 Vallco Parkway 

Cupertino CA 95014 

March 6, 1987 

Mr. Clugage: 

The attached report describes the portions of the 
Debit/Credit benchmark audited by Codd and Date Consulting 
Group. 


The 32-processor VLX system ran the benchmark in excess of 
200 transactions per second for a period of 15 minutes. 


The following additional attributes of the benchmark were 
verified: 


» The transaction is correctly implemented 

» The database is properly sized 

» The programs are unaware of data distribution 

» The percentage of inter-branch transactions is correct 
» The response time is correctly measured 

» The inter-arrival times are exponentially distributed 
» The recovery log is mirrored 

» Database updates are locked during a transaction 

» The performance is linear with system size 

» The application is implemented in COBOL and SQL 


» The network can mix small and large systems. 
Respectfully yours, 
Pane Ma if 
ws fore Pha IY pete ms 
Thomas H. Sawyer 
Senior Consultant 


408-997-3888 mw TELEX 18-1159 
Suite 109 = 6489 Camden Avenue 
San Jose. Calif. 95120 
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Benchmark Synopsis 


The Debit/Credit Transaction is a stylized automatic | 
teller transaction. The process consists of updating. 
the account balance of the teller user. The balance of 
the teller and branch are also updated. A history 
record is inserted to complete the database portion of 
the transaction. 


The terminal portion of the transaction consists of | 
receiving a 100 byte record from the automatic teller. 
and returning a 200 byte record at transaction 
completion. 


At least 15% of the accounts affected are ina 
different branch than the teller processing the 
transaction. 


For a complete description of the debit/credit 
transaction, see “A Measure of Transaction Processing 
Power by Anon. el al." contained in the Auditor's 
Notebook. 


Observed Results 


Two hardware configurations were audited, each of which 
ran the debit/credit transaction implemented in COBOL | 
and SQL. Both configurations delivered the performance 
documented elsewhere in this report. The verification 
section details the auditing techniques. 


The larger hardware configuration consisted of four 8- 
processor VLX systems connected via a FOX ring. One 
VLX system was also connected to a remote EXT 10 via a 
9.6K bit transmission line. Transactions were 
submitted directly to each system (including the EXT 
10). The correct percentage of these were inter- 
branch. The EXT 10 also participated in inter-branch 
transactions at a rate commensurate with the size of 
its database. 
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Benchmark Implementation 


The verification procedures are dependent on the Tandem 
implementation of the benchmark. Tandem implemented 
the benchmark with two sets of hardware - a driver 
system and the system to be measured. 


The driver system (a 10-processor TXP system) was 
connected to the measured system via 56 K bit 
transmission lines. There was one line for each 
processor in the measured system. A transaction 
submitting program (the Driver Program) on the driver 
system simulated an Automatic Teller Network. 


All measurements were taken, recorded and summarized on 
the driver system. The measured system contained two 
application programs. One program (the Requestor 
Program) received the transaction from the 
communication software, reformatted the transaction 
data and assigned it to a copy of the Server Progran. 


The Server Program performed the database updates and 
returned a confirmation to the Requestor Program. The 
latter program then sent a response to the driver 
system to complete the transaction. 


Steps Involved in a Timing Run 


Script Preparation 


The data for each transaction is prepared by a script 
generation program. Each transaction record contains 
the account, branch, teller and amount involved. 


The script generator uses a random number generator to 
determine the account number. This number is then used 
to determine the branch and teller. The random number 
generator is used a second time to determine if this 
transaction should be inter-branch. If so, the random 
number generator is used again to pick an account that 
is not in the branch. 


Transaction Timing 


Transaction timing is performed by the driver program 
as part of submitting transactions to the measured 


Page - 2 - 


AUDIT REPORT OF TOPGUN BENCHMARK 


system. The transaction is time-stamped when it is sent 
to the X.25 component on the driver machine. A second 
time-stamp is taken when the X.25 component returns the 
response to the driver software. 


The response time is the difference of the two time- 
stamps. Note that the time-stamps include all x.25 
processing and all transmission time in the response 
time. The standard benchmark response time requirement 
only counts the time spent in the measured systen. 
Thus, the true response times are actually less than 
reported. 


When the transaction completes, the driver calculates 
the inter-arrival rate of the next transaction relative 
to when it was submitted. If the inter-arrival time 
was exceeded by the response time, the next transaction 
is submitted immediately. If there is any remaining 
"think time", the transaction is queued until the think 
time elapses. 


Tandem chose an exponential inter-arrival rate. This. 
rate is the most difficult for transaction processing 
systems to accommodate. The easiest is a constant 
inter-arrival rate - e.g. each terminal submits one 
transaction every ten seconds with no variance. 


The driver program writes a report record showing the 
response time, the calculated inter-arrival time of the 
next message and the delay factor if the response time 
exceeds the inter-arrival time. 


Report preparation 


After the transaction submission portion of the run is 
stopped, the report files from the driver system are 
collected and summarized. This summarization produces 
the transaction rate graph and inter-arrival rate 
graphs. 


The inter-arrival rate graph shows the theoretical and 
the actual inter-arrival rate for each run. The 
theoretical rate is usually not met for extremely short 
inter-arrival times ~ the actual response times are 
longer. Where the computed times exceed the response 
time, the distribution takes on the correct shape. 
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The calculations and report logic were verified by 
inspecting the source code. A further check was made 
by spot-checking the dis-assembled code from the 
execution module with the listing. 


verification 


er-branch t saction 


The required percentage of 15% was verified two ways. 
The script generation code was inspected to validate 
the percentage generated and the output was spot 
checked to confirm the percentage. The spot check 
yielded 16%. 


Response Time 


Response time was verified two ways. The driver and 
reporter code was inspected for correctness. The 
driver code was modified to take additional 
transactions directly submitted by the auditor. During 
the transaction submission portion of the run, direct 
transactions were submitted. These transactions 
updated accounts on each of the nodes in the network. 
Upon receipt of the response, the computed response 
time was noted and later compared with the response 
times generated by the reports. 


Linear Transaction Rate 


The benchmark attempted to show an absolutely linear 
performance improvement as nodes were added to the 
system. The actual improvement is very close to linear 
but shows a growing divergence from true linearity as 
nodes are added. The auditor ascribes most of this 
fall-off to the effects of the inter-branch 
transactions. | 


In the benchmarked configuration, each VLX processor 
directly dealt with eight branches; a VLX system had 
eight processors. Thus in an 8 processor system, all 
inter-branch transactions would have their recovery 
scope contained on one system. The communication 
within a VLX system uses dual high speed buses 
(24Mbytes/second) and has no need to coordinate 
recovery scope with any other node on the systen. 
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As nodes are added to the system, the percentage of 
transactions requiring inter-system coordination 
increases. For example, a system made up of two 8 
processor VLXs would have one half of the inter-branch 
transactions spread across the network. As the number 
of nodes rises, the percentage increases until it 
approaches 100% of all inter-branch transactions or 15% 
of all transactions. 


Indeed, the extrapolation of the 8 processor 
transaction rate to 16 and 32 processor systems 
predicts 116 and 232 tps. The interpolated rates were 
106 and 208. These are 8 and 10% below linearity. The 
percentage of inter-node, inter-branch transactions for 
these two configurations is 7.5 and 11%. 


Distributed Database Capability 


The benchmark demonstrated three aspects of distributed 
data base support: 


Program transparency 
Distributed Updates 


Asymmetric node support 


Program Transparency 


This feature allows applications to be coded as 
though all data is at one location. The system 
takes care of processing any data remote to the 
node executing the transaction. 


The Tandem system permits spreading of a table 
across multiple systems based on the values of one 
column. This is commonly referred to as 
partitioning. For the benchmark, the accounts 
Gatabase was spread over 5 network nodes - 1 EXT 
10 and 4 VLX systems. I inspected the application 
program (Server); there is no knowledge of this 
partitioning in the program. 


Distributed Updates 


This features coordinates updates that occur on 
more than one node for one transaction. This 
means the system must be prepared to abort all 
work done by a transaction on all nodes where it 
occurs. 
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The inter-branch transactions produce multiple 
node updates for eleven percent of the inter- 
branch transactions. 


Additional tests were performed using the 
interactive SQL interface (SQLCI) where all 
updates were on a node different from the one 
processing the transaction. 


A etric Node t 


This feature allows processors of different power 
to participate in the same transaction. The EXT 10 
participated in both local and inter-branch 
transactions even though the 2-processor EXT 10 
has less than half the power of a single VLX 
processor. It should be noted that the | 
debit/credit transaction is not a heavy duty test 
since it does not have much complex processing. 


Duplexed or Mirrored Log File 


The benchmark requires the log file to be 
duplexed. That is, that the system should be 
capable of losing one of the log files and still 
be able to recover or abort transactions. 


This capability was demonstrated in the following 
Manner. SQLCI was used to start a transaction and 
update an account. The power was turned off for 
one of the log disks. The transaction was 
aborted. The account balance was queried and 
shown to be restored to the balance prior to the 
start of the transaction. 


Additional checks performed 


Several additional checks were performed to insure 
the validity of the benchmark. 


Database Locking 


To prove that record locking was actually 
occurring, the following test was performed. 

SQLCI was used to start a transaction. An account 
balance was updated and queried to demonstrate the 
change. A second transaction was started on 
another terminal. The same account was queried. 
The balance was not returned to the second 
transaction which was timed out after waiting a 
decent interval. If there were no locking 
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mechanism, the balance would have been returned to 
the second transaction even though the first had 
not completed. 


Transaction Message Size 


The benchmark calls for an input message of 100 
bytes and a 200 byte confirmation. This was 
verified in the following manner. The driver code 
was inspected to insure it was sending a 100 byte 
message. The code was also inspected to verify 
that it calculated the length of the response 
correctly. The auditor transaction submission 
code was inspected to verify the message length 
response was correct. 


The length of the response was spot-checked during 
the submission of transactions during the test. 
Several additional transactions were submitted 
with invalid account numbers. These elicited 
error responses of a different length than Ene 
normal transactions. 


Hardware configuration 


Several checks were made to validate the hardware 
configuration. 


The nodes on a Tandem system are connected with a 
fiber optic ring (FOX) when high transmission 
rates are desired. To verify that only the 
benchmark systems were on the ring, the tiles in 
the machine room were removed and the cabling 
traced. 


All disks not directly needed for the benchmark 
were turned off. 


All systems not used in the benchmark were 
inspected to insure no FOX connection. 


The line speed setting between the measured system 
and the EXT 10 was verified at 9.6K bits/second. 


Database sizing 


The Tandem benchmark system was configured for a 
maximum transaction rate of 256 tps. This rate 
requires 25.6 million account records of 100 bytes 
each. In addition, the EXT 10 required 400,000 
account records. 
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The above was verified by inspecting the data 
definition statements for the account, branch and 
teller tables. Additionally, accounts in each of 
the nodes were updated via transactions submitted 
during the timing portion. These accounts were 
then queried using SQLCI to verify the updates had 
taken place. 


inter-arrival rate 


To verify the random inter-arrival rate, code was 
added to the reporting program to plot the 
theoretical and actual distribution. This code 
was inspected to insure correctness. 


Re-verified all code each day 


The timing runs were performed over several days. 

To insure the same software was used each day, the 
auditor kept a tape of the executable modules for 

the driver system. The contents of this tape were 
compared to the programs used for each run. 


The code on the measured machine was inspected 
prior to each day's runs. 


Verified use of generated scripts 


After the script files were generated, one of them 
was picked and several of the transactions were 
altered to update balances not otherwise accessed. 
These transactions were scattered through the 
script to insure the entire script was used. 

After a timing run, the balances of these accounts 
were verified. 


Conformance to Debit/Credit Benchmark 


Deficiencies 
Terminal Sizing 


The benchmark calls for a configuration of 
ten terminals for every branch. Each 
terminal has a one hundred second think time. 
Tandem reduced the number of terminals by ten 
and reduced the think time by ten. This 
change retained the transaction rate but does 
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have the affect of reducing the amount of 
memory needed to support the terminal 
configuration. 


Response Time Graph 


The benchmark states that 95% of all 
transactions must complete in one second. 
Tandem uses two seconds for 90% of all 
transactions. 


History Database 


The history database did not have physical 
disks allocated to cover the ninety day 
requirement. This is a minor matter since 
this database is updated at the end. The 
priced configuration should have the correct 
amount of disk included. 


Extensions 
Mirrored Disks 


All data is written to its primary location 
and its mirrored location. This doubles the 
number of disk I/Os for each transaction. 


Message Inter-Arrival Rate 


The benchmark does not specify the pattern of 
time between messages. The easiest is a 
constant time. For this benchmark that would 
be a rate of one message every ten seconds 
per terminal. Tandem used an inter-arrival 
rate that was exponential but had a mean of 
ten seconds per terminal. This rate is a 
worst case assumption. 


Response Time Measurement 


The benchmark definition of response time 
starts when the last bit of the transaction 
is received in the measured machine and ends 
when the first bit is sent out on the 
transmission line. It must include all time 
spent in the measured machine. 
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Tandem measured the response time from the 
time the message was accepted by the X.25 
component on the driver side of the 
communication line until the last byte of the 
response had been processed by the X.25 
component on the driver machine. Thus all 
message processing and queueing that occurred 
on the driver machine and all the line time 
was added to the response time. 


implementation Lanquage 


Tandem implemented all application dependent 
code in COBOL 85. The database processing 
was implemented in SQL rather than a machine 
specific access mechanisn. 


Account Balance Testing 


The benchmark makes no requirement to test 
the account balance for overdrafts. Tandem 
included an overdraft protection check in the 
transaction. This made the transaction a bit 
more real life. 


Conformance to ANSI Standard sQgL 


Three exceptions were noted. 


The WHERE clause that specifies which teller or which 
branch is updated references a field called "“syskey". 
This field is not a data value in the row; it is the 
relative record number - in effect a direct reference. 
This usage removes the access transparency normally 
gained by SQL. That is, the program is dependent on 
the underlying implementation. The same effect could 
be obtained by enhancing the CREATE TABLE statement to 
include the information that the branch_number is equal 
to syskey. . 
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A second exception to the ANSI standard is the use of 
COBOL picture clauses in the column definitions under 
CREATE TABLE. 


All table names in the application SQL statements are 
preceeded with equal signs ("="). This is a Tandem 
idiosyncrasy that concerns the mapping of table name to 
data file. Unfortunately, it makes the programs non- 
portable. 


The Create Table statement contains one extension - the 
information needed to partition the table. 
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A BENCHMARK OF TANDEM'S NonStop SQL 
DEMONSTRATING OVER 200 TRANSACTIONS PER SECOND 


Anon Et Al 
INTRODUCTION 


NonStop SQL is Tandem's implementation of the ANSI SQL relational 
Gatabase language. In contrast to other SQL implementations, NonStop 
SQL is designed for on-line transaction processing as well as_ for 
information-center use. It delivers high performance at good price 
performance. In addition it supports distributed data with local 


autonomy. 
THE PURPOSE OF THE BENCHMARKS 


Part NonStop SQL's performance assurance compared the throughput of 
the Encompass system and the new SQL system. The benchmarks were done 
jointly by Software Development in Cupertino, the High Performance 


Research Center in Frankfurt, and the Benchmark Center in Sunnyvale. 


Parts of the benchmark were audited and certified by the Codd and Date 


Consulting Group. 
The benchmarks demonstrated the following aspects of NonStop SQL: 


* FUNCTIONAL: NonStop SQL is functional and has been stress’ tested 
for high-volume OLTP applications. 


DISTRIBUTED: NonStop SQL allows distributed data and distributed 
transactions. 


SCALEABLE: NonStop SQL runs on small departmental systems as well as 
on large mainframe systems. 


LINEARITY: NonStop SQL demonstrates linear increases in throughput 
when the discs and processesors are added using the Dynabus or the 
FOX fiber optic ring. 


NO PERFORMANCE LIMIT: There is no apparent limit to the transaction 
throughput of NonStop SQL systems. In particular there are no 
bottle-necks in systems running hundreds of transactions per second. 


NO PERFORMANCE PENALTY: NonStop SQL performs as well as the record- 
at-a-time Encompass system on OLTP applications. 


GOOD PRICE PERFORMANCE: Both Encompass and NonStop SQL have 
impressive price performance at both low and high transaction 
volumes. 


SQL COSTS NO MORE: The price performance of Tandem systems is 
competitive for both departmental systems (EXT-10) and data center 
systems (VLX). 


THE DEFINITION OF THROUGHPUT AND PRICE PERFORMANCE 


The benchmarks were based on the DebitCredit OLTP transaction defined 
in Datamation "A Measure of Transaction Processing Power", [Anon]. 
That article defines a standard database, a standard terminal network 
and a way to scale them to larger systems. It defines a standard 
transaction, called the DebitCredit transaction and specifies how to 


measure the throughput and price/performance of the resulting system. 


Briefly, the database consists of four SQL tables: 


ACCOUNT: A file of bank accounts, each record is 100 bytes and holds 
the account number and balance among other things. 


TELLER: A file of tellers, each record is 100 bytes and holds the 
teller number and cash position among other things. 


BRANCH: A file of branches, each record is 100 bytes and holds the 
branch number and cash position of all tellers at the branch. 


HISTORY: An entry sequence file containing a list of all 
transactions that have run. Each record is 50 bytes long and 
holds the account, teller, branch, delta, and timestamp. 


The transaction coded in SQL is: 


READ 100 BYTES FROM TERMINAL; 
BEGIN WORK; 
PERFORM PRESENTATION SERVICES GIVING account_number, 
teller number, 
branch number, 
delta; 
UPDATE ACCOUNT 
SET balance = balance + :delta 
WHERE account_number = :account_number; 

UPDATE TELLER 
SET balance = balance + :delta 
WHERE teller number = :teller_number; 

UPDATE BRANCH 
SET balance = balance + :delta 
WHERE branch_number = s:branch_number; 

INSERT INTO HISTORY VALUES 

(timestamp, account_number,teller_number,branch_number,delta); 


PERFORM PRESENTATION SERVICES; 
COMMIT WORK; 
WRITE 200 BYTES TO TERMINAL; 


The system is presented with various transaction rates and the 
response time is measured over ten-minute windows. This gives rise to 
a response time curve. 


response 
time 

in 
seconds 


transaction completion rate 


Figure 1. A typical response time curve showing how response 
time grows as the transaction load on the system increases. 


A system that can run one such transaction per second giving less than 
one second response time to 95% of the transactions is called a 1TPS 
(transaction per second) system. For a 1TPS system the database is 
Gefined to have the following sizes: 
100,000 Accounts 
100 Tellers 
10 Branches 
2,590,000 History ! space for a 90 day history assuming average 
! rate is 1/3 of peak rate of 1TPS and 24hrs 
! per day, seven days a week. 
In addition, the standard specifies that a 1TPS system has 100 tellers 
at 10 branches. Each teller thinks for an average of 100 seconds and 
then submitts a transaction. The tellers use block mode terminals 


with ten fields of input and output. The input message is 100 bytes 


and the output message is 200 bytes. Messages are transmitted via the 


X.25 communication protocol. 


Systems which run more than iTPS have the database sizes and network 
scaled linearly. For example a 100TPS system has a database and 


teller network one hundred times larger. 


The standard specifies that accounts belong to branches’ and tellers 
belong to branches. If the database is distributed, then 15% of the 
transactions arrive at branches different from the account's’ home 


branch. These 15% are uniformly distributed among the other branches. 


The benchmark requires that the transactions be run with UNDO/REDO 
transaction protection (abort, autorestart, and rollforward recovery). 


In addition it specifies that the transaction log must be duplexed. 


DEPARTURES FROM THE STANDARD DEBIT CREDIT TRANSACTION 


The NonStop SQL benchmark departed from the Datamation standard 


Gefinition in the following ways: 


1. 


Terminals were driven in record mode (Intelligent Device Support) 
rather than block mode. In effect this assumes that presentation 


services are done in the terminal. 


It was assumed that each branch had a_e concentrator which 
multiplexed the teller terminals at the branch. This had _ the 
effect of reducing the number of sessions by a factor of 10 for 


the same transaction rate when compared to the standard. 


TPS was measured as_ the throughput when 90% of the transactions 
get less than 2 second response time. The standard measures TPS 


at 1 second for 95% of the transactions. 


The SQL system had the disc process check that debits did not 


cause account balances to become negative. 


The system was measured over ten minute periods and the average 
for each period was used to compute the response time curves and 


consequent TPS ratings. 


Response times were measured within the driver system. The 


standard specfies that response can be measured at the interface 


to the service system. 


All devices were driven by NonStop processes so that no single 


failure would cause a denial of service. 


All discs were mirrored (duplexed) as is standard in Tandem. 


Standard products were used. All applications were written in 


Cobol85. 


Items 1, 2, and 3 have the effect of giving an optimistic TPS rating. 


Items 4, 5, 6, 7, 8, and 9 tend to reduce the system's TPS rating. 


THE BENCHMARK SYSTEM DESIGN 


The benchmark hardware consisted of 32 VLX processors. Each VLX 
procesor had a 5Mb/sec channel, 8Mb of main memory and is- rated at 
about three Tandem mips. In addition, an EXT-10 system was included 
in the benchmark hardware to demonstrate scalability. The EXT-10 is 
Tandem's smallest system. It consists of two processors each with 4Mb 
of main memory and two discs. The EXT-10 processors together are 
appoximately as powerful as half a VLX cpu. Thus, the complex was 


sized as a 32.5 VLX processor system. 


The VLX processors were decomposed into four nodes of eight VLX cpus 
each. Each node connects its eight processors via dual 20Mb/sec 
Dynabus, and the nodes are interconnected via a four fiber optic 


rings. 


To model a distributed node, the EXT-10 was connected to VLXS viaa 


9.6Kb communication line. 


The Guardian90XF system makes the entire 32VLX + EXT10 configuration 


appear to be a single system with location transparency. 


DEBIT-CREDIT SYSTEM 
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Figure 2. The benchmark configuration. The two processor EXT-10 
is connected to one VLX via a 9.6KB line. The 32VXL are 
decomposed into four nodes of eight processors each. The nodes 
are connected by the high speed FOX ring. The whole complex looks 
like a single system to the application programmer. A separate 
driver system submitts transactions to this system via X.25 lines. 


The database and transaction load were partitioned into 33 parts. 


Based on preliminary tests, each VLX processor could process up _ to 


eight transactions per second and the EXT-10 could process’ four 


trasactions per second. All sizings based on these preliminary 


measurements. 


Each transaction input message is 100 bytes and the reply is 200 
bytes. With X.25 overheads this translates to 340 bytes in all. At 
8TPS, this is 22kbits/sec. A 56Kb line can handle this load quite 
comfortably. So each VLX processor was configured with a 56Kb line 


and the EXT-10 was configured with a single 56Kb line. 


The database was sized as follows. Each eight VLX node had: 
* A mirrored disc to store the programs and the transaction log 
(audit trail). 
* A mirrored disc dedicated to the History table. In the benchmark 
only one disc was configured, but in pricing the system the 90-day 


-history file of each node was sized at 6.7GB (14 mirrored volumes). 


According to the standard, 8TPS implies: 


80 branches 8Kb 
800 tellers 80Kb 
800,000 accounts 80Mb 


These records along with their indicies and some slack fit comfortably 
on Tandem's smallest disc -- so each VLX processor was given a 
mirrored disc volume to hold its part of the Account-Branch-Teller 
(ABT) tables. A 1.6MB disc cache per mirrored disc partition was 
sufficient to keep all branches, tellers and the account index pages 


resident in main memory. 


Overall then, the system configuration is: 


DATABASE 
_ NETWORK RECORDS SIZE 
25,600 Tellers 25,600 Tellers 2.6Mb 
2560 branches «) ---------- > 2,560 Branches - 3Mb 


25,600,000 Accounts 2.6Gb 
54,080,000,000 History 27.1Gb 
The teller, branch and Account files were mirrored, but for economic 


reasons, the History file was not mirrored 
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Figure 3. The configuration of each 8-processor VLX node in the 


FOX ring. 


The SQL tables were defined to be partitioned by the appropriate key 
values. The approximate syntax for creating the ACCOUNT table is: 


CREATE TABLE account (number PIC 9(12), 
balance PIC S$9(11)V(2), 


KEY number 
PARTITION S$vlx2 START KEY 800000 
PARTITION $vlx3 START KEY 1600000 


PARTITION Sv1x32 START KEY 24800000 
PARTITION Sext START KEY 25600000; 


This creates a single table with 33 partitions. NonStop SQL hides 
this partitioning from the application programmer. The branch and 


teller files were partitioned in a similar way. 
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NonStop SQL imposes no practical limit on the number of partitions a 
table may have. Enscribe is limited to a maximum of 16 partitions. 
So the Enscribe database and Enscribe benchmark was limited to 16 VLX 


processors. 


In the Tandem system, terminal control and presentaton services are 
Gone by a process called the Terminal Control Program (TCP). It is the 
logical equivalent of IMS/DC or CICS. Since each cpu was sized at 
8TPS, each CPU controlled 800 tellers at 80 branches. It was decided 
to configure 32 branches (320 tellers) per MCP which gave rise to 


about 2.5 TCPs per VLX cpu. 


To avoid queueing on database servers at 8TPS with a 2. second average 
response time, 20 Debit/Credit servers were configured per cpu (20 ~ 
2*8) The code and data for the TCPs came to about .5MB/VLX cpu. The 
Enscribe servers consumed .25MB/VLX. The NonStop SQL servers’ used 
about 10Kb more memory -- twenty NonStop SQL servers used about 


~-5MB/VLX in all. 


The EXT-10 system was sized at half of a VLX. The programs and audit 
trail were on one mirrored disc and the database resided on a second 


mirrored disc. 


A second complex of 12 Tandem TXP processors simulated the network of 
2560 branches (25,600 tellers) by submitting transactions via X.25 
using modem eliminators to connect the xX.25 lines. Typically, 


transactions were submitted to each VLX line at an average rate 
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between 4TPS and 8TPS with expenentially distributed interarrival 
times. The EXT-10 was driven at about 4TPS. Each transaction message 
named an Account, Branch, Teller and Debit amount. AS specified by 
the standard, in 85% of the cases, the account and branch were local, 
in 15% of the cases the account was ina branch different from. the 
branch and teller of this’ transaction. Some of these "non-local" 
transactions were in branches at the same node, but most went to other 
nodes of the network. For example, when the system was running at 
over 200 TPS the EXT-10 originated or received about 1 distributed 
transaction per second while each VLX node originated or received 


about 15 distributed transactions per second. 


The driver system measured response time as the time between the send 


and the completion of the receive in the driver system. 
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TRANSACTION 
UPDATE ACCOUNT 
UPDATE TELLER 
UPDATE BRANCH 
INSERT HISTORY 
TRANSACTION 


RESPONSE TIME = CLOCK2 - CLOCK! 


Figure 4. The driver system submitts messages via X.25 and 


measures the transaction completion rate and response time. 


In summary, the hardware configuration was: 


__DRIVER SYSTEM LINES PROCESSORS DISCS 
24mips 33*56Kb X.25 32VLX+EXT10 86 volumes 
100 mips 20Gb 
250Mbytes +27GB history 


(when pricing) 


Assembling this hardware was no small matter. Aside from the cost 


(about 8M$), the VLX has a backlog of orders. The benchmark was 
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allowed to use the equipment for a limited time. The hardware had to 
be assembled, benchmarked, and disassembled all in 50 days. 
Fortunately, the equipment was installed on schedule, there were no 
hardware errors during the benchmark, and no critical software errors 
were discovered in the SQL product itself. The only hardware problem 


was a double power failure early in the benchmark. 
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THE EXPERIMENTS 


The benchmarks measured the ability to grow a Tandem VLX system from 
eight VLX processors to thirty two processors using the FOX fiber 


optic ring. 


In addition, they demonstrate that NonStop SQL runs’ on Tandem's_ low- 
end EXT-10 system attached to the VLXs via an 9.6kb line. The EXT-10 
had a proportionate part of the database and sent and received 


distributed transactions (15%). 


First the throughput of single 8VLX system was measured for both 
Enscribe and SQL. Then a pair of 8VLX systems were connected via FOX 
and their performance measured for both SQL and Enscribe. Finally the 
4-node 32-processor FOX connected network with attached EXT-10 was 
measured. The last experiment was only done for SQL because Enscribe 


is limited to 16 partitions per file. 


Figure 5 shows the response time curves for the SQL and Enscribe tests 
on a eight processor VLX system. The curves show that for the same 
response time, SQL gives sligtly better throughput and conversely that 


SQL gives better response time for a fixed throughput. 
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Figure 5. The response time curves for NonStop SQL and 
Tandem's record-at-a-time Enscribe system running on an 
8 processor VLX system. Notice that NonStop SQL has 
slightly better performance than Enscribe. 


The each transaction generated one physical read of the account file 
and two pyhsical writes of the account file (1 mirrored write). Disc 
reads and writes of the account, branch and history files are 
amortized over many transactions. In addition, each transaction 
contributes about .4 physical log IO per tansaction because group 
commits batch about five transactions per audit flush. A detailed 
breakdown of the cpu utilization by function is shown in figure 6. In 
that figure "INNT" signifies interrupt handing and the message system. 
"ATB" stands for the Account, Branch, and Teller disc servers. Both 
the primary ATB and _ backup (process pair) disc processes’ are 
separated. The "TCP" does presentation services and terminal 


handling, "X.25" is does the physical line handling for the input and 
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output messages. The disc server storing the History table is shown 
separately. Lastly, the transaction commit coordinator is represented 


by "TMF-MON". 
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Figure 6. The detailed breakdown of cpu time spent by 
each component of the DebitCredit transaction on an 

8 processor VLX system. Both the Enscribe and SQL costs 
are shown. 


These experiments were repeated for 16 VLX processors and then the SQL 
experiments were repeated for 32 VLX processors (recall that Enscribe 
is limited to 16 partitions). The response times were plotted and are 
documented in [Sawyer]. The resulting throughput curves are shown in 


Figure 7. 


These experiments were audited by Codd and Date. As explained in the 


Auditor's report [Sawyer], the auditor verified that: 


18 


* The code correctly implemented the standard transaction. 
* The database was sized correctly 

* 15% of the transactions were non-local 

* Transactions were protected by a dual UNDO/REDO log 

* The response times were measured correctly 

* The measured response time curves matched the system 


* SQL and Enscribe had comparable performance 
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90% 25SEC 


oF VS 


Figure 7. The TPS rating of VLX processors for NonStop SQL. 
At peak the system was running at a sustained rate of 208 


SQL TPS. 
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Based on early measurements, the system was expected to perform about 
7TPS per cpu and have linear growth from 8 to 32 cpus. That meant the 
32 processor system would do about 256TPS. In fact the 8VLX system 
did 7.2TPS/VLX cpu and a there was a 10% dropoff as the system was 
scaled to 32 processors. This is shown in the figure 7. The dropoff 
is due to the increased cost of network distributed transactions. 
When transactions do work at multiple nodes, they cost extra 
instructions and 10 traffic. This extra cost implies a reduction in 
throughput overall. Dispite this, the TPS curves are linear -- it is 


just that they are .9x rather than 1x. 


In addition, NonStop SQL uses’ slightly fewer cpu instructions than 
does Enscribe. Consequently, NonStop SQL has slightly higher 
transaction throughput than Enscribe. Ignoring response time, the 


peak NonStop SQL throughput was 229 TPS. 


Given this linear throughput vs hardware, it is possible to quote the 
price performance of the system in terms of the price performance of a 
Single processor. To a first approximation, the five-year 
cost/transaction is the same for a small anda large system. The 
dominant issue is which processor line the user selects. Generally 
newer systems are less’ expensive. Table 1 shows the cost per 
transaction of the various Tandem processors. Two costs are quoted in 
table 1: the cost of a fully mirrored disc configuration (the typical 
Tandem configuration) and the cost of a un-mirrored disc configuration 


(1/2 as many discs). 
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PROCESSOR 
VLX 

TXP 

CLX 
EXT-25 
EXT-10 


MIRRORED 
59KS 
85KS 
?? 

?? 
?? 


COST/TPS 
DISCS UNMIRRORED DISCS 
55KS$ 
81KS$ 
?? 
?? 
2? 


Table 1. The cost per transaction of various Tandem Processors. 
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WHY IS NonStop SQL SO FAST AND POWERFUL? 


Historically, SQL has been confined to information center environments 
and to low-end systems where programmer productivity is more important 
than system performance. In these environmnts, the power of the SQL 
language and the relational model compensated for the lackluster 


performance of most relational systems. 


NonStop SQL is the first SQL system to offer the high performance 
necessary for online transaction processing. As demonstrated by the 
benchmarks, it has performance comparable to Tandem's record-at-a-time 
Enscribe system. We believe both NonStop SQL and Enscribe have the 
best price performance of any full-function data management’ system. 
The cost per transaction is about 53K$ and the systems are capable of 
over 200TPS. In addition, NonStop SQL is a distributed relational 
system; whereas other systems do not offer full-function distributed 
data or distrubuted execution. 

How did Tandem succeed where so many others’ failed? First, NonStop 
SQL benefited from the experience of its predecessors. The developers 
had collectively worked on System R, SQL/DS, DB2, R*, IDM, Encompass, 
Esvel, Wang VS, and_ several other systems. For some, this was their 
sixth, and hopefully last, SQL implementation. They did not repeat any 


of the mistakes of our earlier efforts. 


A second benefit was the close cooperation between the database group 


and the operating system and languages group. Tandem is a transaction 
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processing company. So the operating system is geared for efficient 
processing of distributed transactions. NonStop SQL exploits the 
transaction mechanism of the Guardian90XF operating system to easily 
and efficiently get transaction protected distrubuted execution based 


on remote procedure calls. 


Perhaps the most significant advantage of NonStop SQL is the SQL 
language itself. One can see the difference when contrasting the 
record-at-a-time interface of Enscribe, DL/1, or DBTG, with the set- 
oriented interface of SQL. Consider the UPDATE statements in the 
DebitCredit transaction. Ingnoring error handling, these statements 
are coded as: 

COBOL- ENSCRIBE SQL 


START branch KEY IS EQUAL TO 
branch-number 


READ branch RECORD with LOCK UPDATE branch 

ADD debit TO balance OF branch SET balance = balance + :debit 

REWRITE branch WHERE number = :branch-number 
AND balance >= debit; 


In the Enscribe case, a message is sent to the appropriate part (disc 
process) of the database to get the designated branch record, The 
record is then returned to the program which examines it, alters it 
and then returns it to the database. This is two messages and a lot 


of data movement. 


In the NonStop SQL case, a single message is sent to the data (disc 
process) requesting an update of the appropriate account by the 
appropriate amount. The disc process applies this update and returns 
a status message to the caller. In this case, NonStop SQL sends half 


as many messages and one quarter the number of message bytes. 
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In general, the NonStop SQL subcontracts single variable queries to 
remote servers. This allows the NonStop SQL disc process to act asa 
database machine which performs updates, deletes and filters data, 


returning only the desired rows and columns of a table. 
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ENSCRIBE | SQL 
| 
APPLICATION DATA | APPLICATION DATA 
-~---read----> ji; update----> 
<---data---- | 
update | 
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Figure 8. SQL can update or filter data at the source whereas 
record-at-a-time interfaces must fetch the data to the application 
program. In this way, SQL saves messages and cpu cycles over a 
conventional data management system. 


This example hints at the synergy between SQL and distributed database 
systems. It has long been argued that SQL would be a good basis’ for 
distributed database systems. In all the benchmarks we have done, the 
message savings of SQL have compensated for the extra work the system 
must perform in order to implement the more complex semantics of the 
SQL language. For example, NonStop SQL is about two times faster than 
Enform on the "Wisconsin Benchmark" [Bitton]. Virtually all this 
speedup is due to the close integration of NonStop SQL with the 


operating system. 


Even with all these nice features, a system might bottleneck on 


certain resources. For example, most transaction processing systems 
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bottleneck at 30TPS because they have not implemented group commit 
[Gawlick]. The fact that the NonStop SQL was benchmarked at 16 
processors on a Single dynabus and at over 200TPS without any 
bottlenecks suggests that there are no obvious bottlenecks. In fact 
we are unaware of any bottlenecks in the system. This is no accident, 


Tandem has spent the last few years eliminating bottlenecks. 
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SUMMARY 


Running over 230 TPS on a 32VLX processor complex and an EXT-10 


demonstes that NonStop SQL is 


* 


* 


* 


* 


FUNCTIONAL 

DISTRIBUTED 

SCALEABLE 

HAS LINEAR GROWTH 

HAS NO PERFORMANCE LIMIT 

HAS NO PERFORMACE PENANLTY FOR SQL 
HAS GOOD PRICE PERFORMANCE 


HAS FLAT PRICE PERFORMANCE FROM THE LOW END TO THE HIGH END 
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22 January 1987 


Tom Sawyer 
Codd and Date Consulting Group 
6489 Camden Av #109 
San Jose, CA. 95120 
Frank Clugage 
Tandem Computers Inc. 
19333 Vallco Parkway 
Cupertino, CA 95014 


Dear Frank: 


This letter reviews my plans to support Tandem's SQL announcement. 

* I will audit and validate the results of the performance benchmark 
of SQL and Enscribe on a 32VXL+EXT10 configuration. This benchmark 
will run the standard Debit/Credit transaction as documented in "A 
Measure of Transaction Processing Power" [Datamation, April 1984] 
with exceptions. 

* I will write a report with my conclusions on the performance of the 
benchmark and my confidence in the numbers. 

* I will also assist C. J. Date in preparing a ten minute videotape 
on Tandem's SQL system. 


In preparation for the audit I have reviewed the application (server) 
programs, the performance papers, the UFI Reference Manual, the recent 
Tandem Systems Review on performance, and the proposal for the 
benchmark prepared by Jim Enright on Jan. 15 1987. 


So far, everything looks fine with one exception. I notice that the 
server programs always credit the account with 100S. The amount 
should be in the input message and should be used by the servers. 


These are the aspects of the benchmark I expect to audit: 
1. That the programs correctly implement the DebitCredit transaction. 
2. That the database design is correct and that its size 1s correct 
for the transaction rate. 
3. That the database is being updated by the transactions and that 
the inter-branch transaction rate is 15% of the total rate. 
4, That the transaction rate and response times are as claimed by the 
monitoring software for both the VLX and EXT systems. 
- That the system is in steady-state. 
6. That the transaction logs are duplexed and that they support 
transaction backout. 


Each of these points must be established for both Enscribe and SQL. 


In addition, you may want to demonstrate Tandem's ability to tolerate 
the following kinds of faults: 

Processor failure 

. Disc controller failure 

C. Disc failure 

D. Log disc failure 

E. Communications controller failure 

F 

G 


wD > 


. Dynabus failure 
. Fox link failure. 
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In order to audit the benchmark I will need the following: 


To establish points 1 and 2 above (the programs correctly implement 
the DebitCredit transaction, that the database design is correct, and 
that its size is correct for the transaction rate) I will need: 


A. A formal description of the experiments to be performed. This 
should include the following: 

* A list of the exceptions to the standard for the benchmark. 

Listings of the DRIVER software along with its manual. 

Listing of the REQUESTOR software. 

Listings of the SERVER software (SQL and Enscribe) 

Listing of the Database Dictionary (SQL and Enscribe) 

Listing of the physical database design (SQL and Enscribe) 

Associated language manuals (Tal/Cobol). 

B. Ability during the benchmark to verify that these listings 
correspond to the system being benchmarked. Examining the 
processes using the SOURCE command of INSPECT will prove that 
the programs are the same. FUP and UFI can be used to verify the 
file sizes and layouts. 
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To establish point 3 above (that the database is being updated by the 
transactions and that the inter-branch transaction rate is 15% of the 
total rate) I will need: 
A. Ability to set the Account balances to zero for some key range. 
B. Local updates will be xX dollars (probably 1S), and _ global 
updates will be Y dollars (probably 1,000,000S). I will tell you 
X and Y at the time of the benchmark. 
Ability with ENFORM and UFI to see account balances. 
Ability to submit transactions to the system from the driver 
system given the account, branch, teller and delta. The program 
should be interactive and measure the response time. Enform/UFI 
will then be used to see that the data changed. 
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To establish point 4 above (that the transaction rate and response 
times are as claimed by the driver software for both the VLX and EXT) 
I will use the interactive program mentioned in point 3.D above. 


I expect Tandem to present driver reports for two different ten minute 
intervals to prove that the system response time is stable. This will 
establish point 5. 


To establish point 6, I will fail one of the log discs and then use 
the UFI or the interactive program to run and then abort a 
transaction. A special program will be required for Enscribe. UFI 
and ENFORM will be used to show that the transaction was indeed 
undone. 


Note: This letter was typed from draft form by Jim Gray who took some 
editorial license with the draft. 
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A Measure of Transaction Processing Power 
Anon Et Al 


February 1985 
ABSTRACT 


Three benchmarks are defined: Sort, Scan and DebitCredit. The first 
two benchmarks measure a system's input/output performance. 
DebitCredit is a simple transaction processing application used to 
define a throughput measure -- Transactions Per Second (TPS). These 
benchmarks measure the performance of diverse transaction processing 
systems. A standard system cost measure is stated and used to define 


price/performance metrics. 


A condensed version of this paper appears in Datamation, April 1, 1985 
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Who Needs Performance Metrics? 


'A measure of transaction processing power iS needed -- a_e standard 
which can measure and compare the throughput and price/performance of 


various transaction processing systems. 


Vendors of transaction processing systems quote Transaction Per Second 
(TPS) rates for their systems. But there isn't a standard 
transaction, so it is difficult to verify or compare these TPS claims. 
In addition, there is no accepted way to price a system supporting a 
desired TPS rate. This makes it impossible to compare. the 


price/performance of different systems. 


The performance of a transaction processing system depends heavily on 
the system input/output architecture, data communications architecture 
and even more importantly on the efficiency of the system software. 
Traditional computer performance metrics, Whetstones, MIPS, MegaFLOPS 
and GigaLIPS, focus on CPU speed. These measures do not capture the 
features that make one transaction processing system faster or cheaper 


than another. 


This paper is an attempt by two dozen people active in transaction 
processing to write down the folklore we use to measure system 
performance. The authors include academics, vendors, and users. A 


condensation of this paper appears in Datamation (April 1, 1985). 


We rate a transaction processing system's performance al 


price/performance by: 

* Performance is quantified by measuring the elapsed time for tr 
standard batch transactions and throughput for an _  interacti' 
transaction. 

* Price is quantified as the five-year capital cost of the syst 
equipment exclusive of communications lines, terminals, developme! 
and operations. 

* Price/Performance is the ratio Price over Performance. 

These measures also gauge the peak performance and performance trem 

of a system as new hardware and software is introduced. This is 


valuable aid to system pricing, sales and purchase. 


We rate a transaction processing system by its performance on  thri 


generic operations: 
* A simple interactive transaction. 
* A minibatch transaction which updates a small batch of records. 


* A utility which does bulk data movement. 


This simplistic position is similar to Gibson's observation that if 


you can load and store quickly, you have a fast machine [Gibson]. 
We believe this simple benchmark is adequate because: 


* The interactive transaction forms the basis for the TPS rating. It 
is also a litmus test for transaction processing systems -- it 
requires the system have at least minimal presentation services, 


transaction recovery, and data management. 


* The minibatch transaction tells the IO performance available to the 


Cobol programmer. It tells us how fast the end-user IO software is. 


* The utility program is included to show what ae really tricky 
programmer can squeeze out of the system. It tells us how fast the 
real IO architecture is. On most systems, the utilities trick the 
IO software into giving the raw IO device performance with almost no 


software overhead. 


In other words, we believe these three benchmarks indicate the 
performance of a transaction processing system because the utility 
benchmark gauges the IO hardware, the minibatch benchmark gauges the 
IO software and the interactive transaction gauges the performance of 


the online transaction processing system. 


The particular programs chosen here have become part of the folklore 


of computing. Increasingly, they are being used to compare system 


performance from release to release and in some cases, to compare the 
price/performance of different vendor's transaction processing 


systems, 
The basic benchmarks are: 


DebitCredit: A banking transaction interacts with a block-mode 
terminal connected via X.25. The system does presentation. 
services to map the input for a Cobol program which in turn 
uses a database system to debit a bank account, do the standard 
double entry book-keeping and then reply to the terminal. 95% 
of the transactions must provide one second response time. 


Relevant measures are throughput and cost. 


Scan: A minibatch Cobol transaction sequentially scans and updates 
one thousand records. A duplexed transaction log is 
automatically maintained for transaction recovery. Relevant 


measures are elapsed time, and cost. 


Sort: A disc sort of one million records. The source and target 
files are sequential. Relevant measures are elapsed time, and 


cost. 


A word of caution: these are performance metrics, not function 
metrics. They make minimal demands on the network (only x.25 and very 
minimal presentation services), transaction processing (no distributed 


data), data management (no complex data structures), and _ recovery 


management (no duplexed or distributed data). 


Most of us have spent our careers making high-function systems. It is 
painful to see a metric which rewards simplicity -- simple systems are 
faster than fancy ones. We really wish this were a function benchmark. 


It isn't. 


Surprisingly, these minimal requirements disqualify many purported 
transaction processing systems, but there is a very wide spectrum of 
function and useability among the systems that have these minimal 


functions. 


Our Performance and Price Metrics 


What is meant by the terms: elapsed time, cost and throughput? Before 
getting into any discussion of these issues, you must get the right 
attitude. These measures are very rough. As the Environmental 
Protection Agency says about its milage ratings, "Your actual 
performance may vary depending on driving habits, road conditions and 
queue lengths “ie use them for comparison purposes only". This 
cavalier attitude is required for the rest of this paper and for 
performance metrics in general -- 1f you don't believe this, 


reconsider EPA milage ratings for cars. 

So, what is meant by the terms: elapsed time, cost and throughput? 
ELAPSED TIME 

Elapsed Time is the wall-clock time required to do the operation on an 
otherwise empty system. It is a very crude performance measure but it 
is both intuitive and indicative. It gives an optimistic performance 
measure. In areal system, things never go that fast, but someone got 
it to go that fast once. 


COST 


Cost iS a much more complex measure. Anyone involved with an 


accounting system appreciates this. What should be included? Should 


it include the cost of communications lines, terminals, application 
development, personnel, facilities, maintenance, etc.? Ideally, cost 
would capture the entire "cost-of-ownership". It is very hard to 
measure cost-of-ownership, We take a myopic vendor's view: cost is 
the 5-year capital cost of vendor supplied hardware and software in 
the machine room. It does not include terminal cost, communications 
costs, application development costs or operations costs. It does 
include hardware and software purchase, installation and maintenance 


charges. 


This cost measure is typically one fifth of the total cost-of- 
ownership. We take this narrow view of cost because it is simple. 
One can count the hardware boxes and software packages. Each has a 
price in the price book. Computing this cost is a matter of inventory 


and arithmetic. 


A benchmark is charged for the resources it uses rather than the 
entire system cost. For example, if the benchmark runs for an hour, we 
charge it for an hour. This in turn requires a way to measure system 
cost/hour rather than just system cost. Rather than get into 
discussions of the cost of money, we normalize the discussion by 
ignoring interest and imagine that the system is straight-line 
depreciated over 5 years. Hence an hour costs about 2E-5 of the five 


year cost and a second costs about 5SE-9 of the five year cost. 


Utilization is another tough issue. Who pays for overhead? The answer 


we adopt is a Simple one: the benchmark is charged for all operating 


system activity. Similarly, the disc is charged for all disc activity, 
either direct (e.g. application input/output) or indirect (e.g. 


paging). 


To make this specific, lets compute the cost of a sort benchmark which 
runs for an hour, uses 2 megabytes of memory and two discs and their 


controllers. 


Package Package Per hour Benchmark 
cost cost cost 
Processor 80KS 1.85 1.85 
Memory 15KS “8 «3S 
Disc 50KS$ 1.1$ Lets 
Software SOKS 1.15 1.1$ 
4.38 


So the cost is 4.3$ per sort. 


The people who run the benchmark are free to configure it for minimum 
cost or minimum time. They may pick a fast processor, add or drop 
memory, channels or other accelerators. In general the minimum- 
elapsed-time system is not the minimum-cost system. For example, the 
minimum cost Tandem system for Sort iS a one processor two disc 
system. Sort takes about 30 minutes at a cost of 1.5$. On the other 
hand, we believe a 16 processor two disc Tandem system with 8Mbytes 
per processor could do Sort within ten minutes for about 15$ -- six 
times faster and 10 times as expensive. In the IBM world, minimum 


cost generally comes with model 4300 processors, minimum time 


generally comes with 308x processors. 


The macho performance measure is throughput -- how much work the 
System can do per’ second. MIPS, GigaLIPS and MegaFLOPS are all 
throughput measures. For transaction processing, transactions per 


second (TPS) is the throughput measure. 


A standard definition of the unit transaction is required to make the 
TPS metric concrete. We use the DebitCredit transaction as such a 


unit transaction. 


To normalize the TPS measure, most of the transactions must have less 
than a specified response time. To eliminate the issue of 
communication line speed and delay, response time is defined as_ the 
time interval between the arrival of the last bit from the 
communications line and the sending of the first bit to the 
communications line. This is the metric used by most teleprocessing 


stress testers. 


Hence the Transactions Per Second (TPS) unit is defined as: 


TPS: Peak DebitCredit transactions per second with 95% of the 


transactions having less than one second response time. 


Having defined the terms: elapsed time, cost and throughput, we can 


now define the various benchmarks. 


The Sort Benchmark 


The sort benchmark measures the performance possible with the best 
programmers using all the mean tricks in the system. It is an 
excellent test of the input-output architecture of a computer and its 


operating system. 


The definition of the sort benchmark is’ simple. The input is one- 
million hundred-byte records stored in a sequentiai disc file. The 
first ten bytes of each record are the key. The keys of the input 
file are in random order. The sort program creates an output file and 
fills it with the input file sorted in key order. The sort may use as 


many scratch discs and as much memory as it likes. 


Implementors of sort care about seeks, disc io, compares, and_= such. 
Users only care how long it takes and how much it costs. From the 


user's viewpoint, relevant metrics are: 
Elapsed time: the time from the start to the end of the sort program. 


Cost: the time weighted cost of the sort software, the software and 


hardware packages it uses. 
In theory, a fast machine with 100mb memory could do the job in a 
Minute at a cost of 20S. In practice, elapsed times range from 10 
minutes to 10 hours and costs between 1S and 100S. A one hour 10$ 


sort is typical of good commercial systems. 
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The Scan Benchmark 


The Sort benchmark indicates what sequential performance a wizard can 
get out of the system. The Scan benchmark indicates the comparable 
performance available to end-users: Cobol programmers. The difference 


is frequently a factor of five or ten. 


The Scan benchmark is based on a Cobol program which sequentially 
scans a seqcentiet file, reading and updating each record. Such scans 
are typical of end-of-day processing in online transaction processing 
Systems. The total scan is broken into minibatch transactions each of. 
which scans one thousand records. Each minibatch transaction isa 


Scan transaction. 


The input 1s a sequential file of 100 byte records stored on one disc. 
Because the data is online, Scan cannot get exclusive access to the 
file and cannot use old-master new-master recovery techniques. Scan 
must use fine granularity locking so that concurrent access to other 
parts of the file is possible while Scan is running. Updates’ to the 
file must be protected by a system maintained duplexed log which can 


be used to reconstruct the file in case of failure. 


Scan must be written in Cobol, PLI or some other end-user application 
interface. It must use the standard I0 library of the system and 
otherwise behave as a good citizen with portable and maintainable 
code. Scan cannot use _ features not directly supported by the 


language. 
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The transaction flow is: 


OPEN file SHARED, RECORD LOCKING 
PERFORM SCAN 1000 TIMES 
BEGIN -- Start of Scan Transaction 
BEGIN-TRANSACT ION 
PERFORM 1000 TIMES 
READ file NEXT RECORD record WITH LOCK 
REWRITE record 
COMMIT-TRANSACTION 
END -- End of Scan Transaction 
(CLOSE FILE 


The relevant measures of Scan are: 


Elapsed time: The average time between successive BeginTransaction 
steps. If the data is buffered in main memory, the flush to 


disc must be included. 
Cost: the time weighted system cost of Scan. 


In theory, a fast machine with a conventional disc and flawless 
software could do Scan in .1 second. In practice elapsed times range 
from 1 second to 100 seconds while costs range from .001$ to .1$. 
Commercial systems execute scan for a penny with ten second elapsed 


time, 
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The DebitCredit Benchmark 


The Sort and Scan benchmarks have the virtue of simplicity. They can 
be ported to a system in a few hours if it has a reasonable software 
base -- a sort utility, Cobol compiler and a transactional file 
System. Without this base, there is not much sense considering the 


system for transaction processing. 


The DebitCredit transaction is a more difficult benchmark to describe 
Or port -- it can take a day or several months to install depending on 
the available tools. On the other hand, it is the simplest 


application we can imagine. 


A little history explains how DebitCredit became a de facto standard. 
In 1973 a large retail bank wanted to put its 1,000 branches, 10,000 
tellers and 10,000,000 accounts online. They wanted to run a peak load 
of 100 transactions per second against the system. They also wanted 
high availability (central system availability of 99.5%) with two data 


centers. 


The bank got two bids, one for 5MS from a minicomputer vendor and 
another for 25MS from a major-computer vendor. The mini solution was 
picked and built [Good]. It had a 50KS/TPS cost whereas the other 
system had a 250KS/TPS cost. This event crystalized the concept of 
cost/TPS. A generalization (and elaboration) of the bread-and-butter 
transaction to support those 10,000 tellers has come to be variously 


known as the TP1, ET1 or DebitCredit transaction [Gray]. 
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In order to make the transaction definition portable and explicit, we 
define some extra details, namely the communication protocol (x.25) 


and presentation services. 


The DebitCredit application has a database consisting of four record 


types. History records are 50 bytes, others are 100 bytes. 


* 1,000 branches ( .1 Mb, random access ) 
* 10,000 tellers ( 1 Mb random access) 
* 10,000,000 accounts ( 1 Gb random access) 
* a 90 day history ( 10 Gb sequential ) 


The transaction has the flow: 
DebitCredit: 

BEGIN-TRANSACTION 

READ MESSAGE FROM TERMINAL (100 bytes) 

REWRITE ACCOUNT (random) 

WRITE HISTORY (sequential) 

REWRITE TELLER (random) 

REWRITE BRANCH (random) 

WRITE MESSAGE TO TERMINAL (200 bytes) 

COMMIT-TRANSACTION 
A few more things need to be said about the transaction. Branch keys 
are generated randomly. Then a teller within the branch is picked at 
random. Then a random account at the branch is picked 85% of the time 
and a random account at a different branch is picked 15% of the time. 
Account keys are 10 bytes, the other keys can be short. All data 
files must be protected by fine granularity locking and logging. The 
log file for transaction recovery must be duplexed to tolerate single 
failures, data files need not be duplexed. 95% of the transactions 
must give at least one second response time. Message handling should 


deal with a block-mode terminal (eg IBM 3270) with a base screen of 20 


fields. Ten of these fields are read, mapped by presentation services 
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and then remapped and written as part of the reply. The line protocol 


is x.25. 


The benchmark scales as follows. Tellers have 100 second think times 
on average. So at 10TPS, store only a tenth of the database. At 1TPS 
store one hundredth of the database. At one teller, store only one 


ten thousandth of the database and run .01 TPS. 


Typical costs for DebitCredit appear below. These numbers come from 
real systems, hence the anomaly that the lean-and-mean system does too 


Many disc ios. Identifying these systems makes an interesting parlor 


game. 
K-inst IO TPS KS$/TPS ¢/T Packets 
Lean and Mean 20 6 400 40 02 2 
Fast 50 4 100 60 03 2 
Good 100 10 50 80 04 2 
Common 300 20 15 150 19 4 
Funny 1000 20 ne 400 2.0 8 


The units in the table are: 


K-inst: The number of thousands of instructions to run the 
transaction. You might think that adding 10$ to your bank 
account is a single instruction (add). Not so, one system 
needs a million instructions to do that add. Instructions are 


expressed in 370 instructions or their equivalent and are 


15 


fuzzy numbers for non-370 systems. 


DiscIO: The number of disc io required to run the transaction. The 


fast system does two database IO and two log writes. 


TPS: Maximum Transactions Per Second you can run before the largest 
system saturates (response time exceeds one second). This is 
a throughput measure. The good system peaks at 50 


transactions per second. 


KS$/TPS: Cost per transaction. per second. This is just system cost 
divided by TPS. It is a simple measure to compute. The funny 
system costs 400K$ per transaction per second. That is, it 
costs 400KS$ over 5 years and can barely run one transaction 
per second with one second response time. The 


cost/transaction for these systems is .5E-8 times the KS/TPS. 


t/T: Cost per transaction (measured in pennies per transaction). 


This may be computed by multiplying the system $/TPS by 5E-9. 


Packets: The number of X.25 packets exchanged per transaction. This 
charges for network traffic. A good system will send two X.25 
packets per transaction. A bad one will send four times’ that 
many. This translates into larger demands for communications 
bandwidth, longer response times at the terminals and much 
higher costs. X.25 was chosen both because it is a standard 


and because it allows one to count packets. 
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Observations On The DebitCredit Benchmark 


The numbers in the table on page 15 are ones achieved by vendors 
benchmarking their own systems. Strangely, customers rarely achieve 
these numbers -- typical customers report three to five times’ these 
costs and small fractions of the TPS rating. We suspect this is 
because vendor benchmarks are perfectly tuned while customers’ focus 
more on getting it to work at all and dealing with constant change and 
growth. If this explanation iS correct, real systems’ are seriously 
out of tune and automatic system tuning will reap enormous’ cost 


savings. 


The relatively small variation in costs is surprising -- the TPS range 
is 400 but the KS$/TPS range is 10. In part the narrow cost range 
stems from the small systems being priced on the minicomputer curve 
and hence being much cheaper than the mainframe systems. Another 
factor is that disc capacity and access are a major part of the system 
cost. The disc storage scales with TPS and disc accesses only vary by 
a factor of 5. Perhaps the real determinant is that few people will 


pay 400 times more for one system over a competing system. 


There are definite economies of scale in transaction processing -- 


high performance systems have very good price/performance. 
It is also surprising to note that a personal computer with 
appropriate hardware and data management software supports one teller, 


scales to .01 TPS, and costs 8KS$ -- about 800KS/TPS! Yes, that's an 
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unfair comparison. Performance comparisons are unfair. 


There are many pitfalls for the data management system running 
DebitCredit. These pitfalls are typical of other applications. For 
example, the branch database is a high-traffic small database, the end 
of the history file is a hotspot, the log may grow rapidly at 100TPS 
unless it is compressed, the account file is large but it must be 
spread across many discs because of the high disc traffic to it, and 
so on. Most data management systems bottleneck on software 
performance bugs long before hardware limits are reached [Gawlick], 


(Gray, et al]. 


The system must be able to run the periodic reporting -- sort merge 
the history file with the other account activity to produce 1/20 of 
the monthly statements. This can be done as a collection of background 
batch jobs that run after the end-of-day processing and must complete 
before the next end-of-day. This accounts for the interest in the 


scan and sort benchmarks. 


18 


Criticism 


Twenty four people wrote this paper. Each feels it fails to capture 
the performance bugs in his system. Each knows that systems have 
already evolved to make some of the assumptions irrelevant (e.g. 
intelligent terminals now do distributed presentation services). But 
these benchmarks have been with us for along time and provide a 


Static yardstick for our systems. 


There is particular concern that we ignore the performance of system 
startup (after a crash or installation of new software), and 
transaction startup (the first time it is called). These are serious 
performance bugs in some systems. A system should restart in a 
Minute, and should NEVER lose a 10,000 terminal network because 
restart would be unacceptably long. With the advent of the 64kbit 
memory chip (not to mention the Iimbit memory chip), program loading 


should be instantaneous. 


The second major concern is that this is a performance’ benchmark. 
Most of us have spent our careers making high-function systems. It is 
painful to see a metric which rewards simplicity -- simple systems are 
faster than fancy ones. We really wish this were a function benchmark. 


It isn't. 
In focusing on DebitCredit, we have ignored system features which pay 
off in more complex applications: e.g. clustering of detail records on 


the same page with the master record, sophisticated use of alternate 
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access paths, support for distributed data and distributed execution, 
and so on. Each of these features has major performance benefits. 
However, benchmarks to demonstrate them are too complex to be 


portable. 
Lastly, we have grave reservations about our cost model. 


First, our "cost" ignores communications costs and terminal costs. An 
ATM costs S50KS$ over 5 years, the machine room hardware to support it 
costs SKS. The communications costs are somewhere in between. 
Typically, the machine room cost is 10% of the system cost. But we 
can find no reasonable way to capture this "other 90%" of the cost. 
In defense of our cost metric, the other costs are fixed, while the 


central system cost does vary by an order of magnitude 


Second, our "cost" ignores the cost of development and maintenance. 
One can implement the DebitCredit transaction in a day or two on some 
systems. On others it takes months to get started. There are huge 
differences in productivity between different systems. Implementing 
these benchmarks is a good test of a system's productivity tools. We 
have brought it up (from scratch) in a week, complete with test 
Gatabase and scripts for the network driver. We estimate the leanest- 
meanest system would require six months of expert time to get 
DebitCredit operational. What's more, it has no Sort utility or 


transaction logging. 
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Third, our "cost" ignores the cost of outages. People comprise 60% of 
most DP budgets. People costs do not enter into our calculations at 
all. We can argue that a system with 10,000 active users and a 30 
Minute outage each week costs 100K$/TPS just in lost labor over five 


years. Needless to say, this calculation is very controversial. 
In defense of our myopic cost model, it is the vendor's model and the 


customer's model when money changes hands. Systems are sold (or not 


sold) based on the vendor's bid which is our cost number. 
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Summary 


Computer performance is difficult to quantify. Different measures are 
appropriate to different application areas. None of the benchmarks 
described here ‘use any floating point operations or logical 
inferences. Hence MegaFLOPS and GigaLIPS are not helpful on these 
applications. Even the MIPS measure is a poor metric -- one software 
system may use ten times the resources of another on the _ same 


hardware. 


Cpu power measures miss an important trend in computer architecture: 
the emergence of parallel processing systems built out of modest 
processors which deliver impressive performance by using a large 
number of them. Cost and throughput are the only reasonable metrics 


for such computer architectures. 


In addition, input-output architecture largely dominates the 
performance of most applications. Conventional measures ignore input- 


output completely. 

We defined three benchmarks, Sort, Scan and DebitCredit. The first two 
benchmarks are really measure the system's input/output performance. 
DebitCredit is a very simple transaction processing application. 

Based on the definition of DebitCredit we defined the Transactions Per 


Second (TPS) measure: 
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TPS: Peak DebitCredit transactions per second with 95% of the 


transactions having less than one second response time. 


TPS is a good metric because it measures software and hardware 


performance including input-output. 


These three benchmarks combined allow performance and 


price/performance comparisons of systems. 


In closing, we restate our cavalier attitude about all this: "Actual 
performance may vary depending on driving habits, road conditions. and 
queue lengths -- use these numbers for comparison purposes only". Put 
more bluntly, there are lies, damn lies and then there are performance 


measures. 
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Top Gun Benchmark tasks 02/16/87 


Starting February 16, 1987 


Verify sources with inspect. 

Generate script with new delta values. 

Alter specific account and delta values throughout a script 
Fup load script 

Down six unused Enscribe volumes 

Poke around SQL database at will 


Begin SQL sessions on 32.5 VLX configuration 
Reset balance for specified key ranges on VLX and EXT 
Begin high tx rate run 
Monitor response time on interactive terminal 
for VLX and EXT partitions 
End response timings 
Audit proof at interactive terminal 
Begin transaction 
Modify account on node \x 
Select account and verify change 
Down primary or backup audit trail on node \x 
Select account and verify change 
Abort transaction 
Select account and verify change backout 
Revive downed disc 
Repeat audit proof on EXT? 
End test 


Reset balance for specified key ranges on VLX and EXT 
Begin high tx rate run 
Monitor response time on interactive terminal 
for VLX and EXT partitions 
End test 


Reset balance for specified key ranges on VLX and EXT 
Begin lower tx rate run 
Monitor response time on interactive terminal 
for VLX and EXT partitions 
End test 


Reset balance for specified key ranges on VLX and EXT 
Begin lowest tx rate run 
Monitor response time on interactive terminal 
for VLX and EXT partitions 
End test 


Reset balance for specified key ranges on VLX and EXT 
Begin highest tx rate run 
Monitor response time on interactive terminal 
for VLX and EXT partitions 
End test 
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Top Gun Benchmark tasks 02/16/87 


Begin SQL sessions on 16 VLX configuration 
Generate script with the delta values. 
Alter specific account and delta values throughout a script 
Fup load script 
Poke around SQL database at will 
Reset balance for specified key ranges on VLX and EXT 
Begin high tx rate run 
Monitor response time on interactive terminal 
End test 


Reset balance for specified key ranges on VLX and EXT 
Begin high tx rate run 

Monitor response time on interactive terminal 
End test 


Reset balance for specified key ranges on VLX and EXT 
Begin lower tx rate run 

Monitor response time on interactive terminal 
End test 


Reset balance for specified key ranges on VLX and EXT 
Begin lowest tx rate run 

Monitor response time on interactive terminal 
End test 


Reset balance for specified key ranges on VLX and EXT 
Begin highest tx rate run 

Monitor response time on interactive terminal 
End test 
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Top Gun Benchmark tasks 02/16/87 


Begin Enscribe sessions on 16 VLX configuration 
Up six Enscribe volumes / Down six SQL volumes 
Generate script with the delta values. 
Alter specific account and delta values throughout a script 
Fup load script 
Load Enscribe database 
Poke around Enscribe database at will 

Begin high tx rate run 

Monitor response time on interactive terminal 
End test 


Reload a partition to reset balances for specific key ranges 
Verify with Enform 
Begin high tx rate run 
Monitor response time on interactive terminal 
End test 


Reload a partition to reset balances for specific key ranges 
Verify with Enform 
Begin lower tx rate run 
Monitor response time on interactive terminal 
End test 


Reload a partition to reset balances for specific key ranges 
Verify with Enform 
Begin lowest tx rate run 
Monitor response time on interactive terminal 
End test 


Reload a partition to reset balances for specific key ranges 
Verify with Enform 
Begin highest tx rate run 
Monitor response time on interactive terminal 
End test 
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WHY THE BENCHMARKS? 


¢ TO DEMONSTRATE THAT NonStop/SQL : 
- WORKS 
- DISTRIBUTED 
-NO PERFORMANCE PENALTY USING SQL 
- LINEAR GROWTH 
- SCALEABLE (EXT TO VLX) 
- GOOD PRICE / PERFORMANCE 


- NO LIMIT ON PERFORMANCE 


THE DEBITCREDIT "STANDARD" 


¢ THE TRANSACTION 


READ 100 BYTES FROM TERMINAL ; 
BEGIN TRANSACTION ; 
UPDATE account BY DELTA ; 
UPDATE teller BY DELTA ; 
UPDATE branch BY DELTA ; 
INSERT INTO history ; 
COMMIT TRANSACTION ; 


WRITE 200 BYTES TO TERMINAL ; 
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THE DEBITCREDIT "STANDARD" 


¢ THE DATABASE FOR A 1 TPS SYSTEM 


°*THE "ABT" FILES: 


100,000 -100 BYTE ACCOUNT RECORDS 
10 -100 BYTE BRANCH RECORDS 
100- 100 BYTE TELLER RECORDS 


2,590,000 - 50 BYTE HISTORY RECORDS 


(90 days online history file, this is 
included in the "standard" to compare 
disk storage cost ) 


¢« THINK TIME - 100 seconds 


100 terminals / 100 seconds think time = 1 TPS 
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RESPONSE TIME 


SIMULATOR TEST 
SYSTEM SYSTEM 


CLOCK 1 
SEND 


TRANSACTION 
ACCOUNT 
TELLER 


BRANCH 
HISTORY 
TRANSACTION 


READ 
CLOCK2 


RESPONSE TIME = CLOCK2 - CLOCK‘ 


NOTE : 
THE STANDARD SPECIFIES THE RESPONSE TIME AS THE 


ELAPSED TIME BETWEEN THE LAST BIT ENTERING THE 
TEST SYSTEM TILL THE TIME THE FIRST’ BIT LEAVES 


THE SYSTEM. 
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THE DEBITCREDIT "STANDARD" 


¢ OTHER DETAILS 


¢ THROUGHPUT OR TPS RATING 


TPS IS SPECIFIED AS THE TRANSACTION RATE 
AT WHICH 95% OF THE TRANSACTIONS HAVE 
A RESPONSE TIME OF LESS THAN OR EQUAL 
TO 1 SECOND. 


¢ DISTRIBUTED 


15% OF TRANSACTIONS ARE INTER-BRANCH 


¢ COST 


MEASURED AS THE 5 YEAR COST OF HARDWARE 
AND SOFTWARE PURCHASE AND MAINTENANCE 


¢ THE BOTTOM LINE 


COST PER TPS 


e.g. A $250,000 system which can do 5 TPS has 
a cost per tps of $ 50,000.( $ 250,000 / 5 tps) 


© Tandem Computers Inc. 1987 


TANDEM'S TWO_ DATABASE 


ENSCRIBE NonStop / SQL 
RELATIONAL DDL RELATIONAL DDL 
RECORD-AT-A-TIME DML RELATIONAL DML 
DISTRIBUTED DISTRIBUTED 
TRANSACTION PROTECTED TRANSACTION PROTECTED 
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¢ HARDWARE USED 


¢ FOR DEBIT-CREDIT SYSTEMS 


¢ FOR THE TERMINAL SIMULATORS 


¢ FOR COMMUNICATION 
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¢ DEBIT-CREDIT SYSTEMS 


¢ 4 NODES CONNECTED VIA FOX 


* EACH NODE 8 VLX PROCESSORS 
- TOTAL OF 32 VLX PROCESSORS 


¢ 8 MBYTES MEMORY PER PROCESSOR 
- TOTAL OF 256 MBYTES MEMORY 


© 10 MIRRORED DISK VOLUMES PER NODE 
- TOTAL OF 40 MIRRORED DISK VOLUMES 


¢ 1 EXT10 SYSTEM 


° 4 MBYTES MEMORY PER PROCESSOR 


¢ 2 MIRRORED DISK VOLUMES 


¢ CONNECTED VIA 9600 BAUD EXPAND 
LINE TO A VLX NODE 


© Tandem Computers Inc. 1987 


of 


Example node: With Mirroréd disk config. 
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FOR TERMINAL SIMULATORS 


¢ 10 TXP PROCESSORS 
4 MBYTES MEMORY PER PROCESSOR 


¢ $8 MIRRORED DISK VOLUMES 
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¢ COMMUNICATION HARDWARE 


¢ 26 BITSYNC CONTROLLERS 


4 BITSYNCS PER VLX NODE, 16 FOR 4 NODES 


* 1 BITSYNC FOR THE EXT10 SYSTEM 


© 9 BITSYNCS FOR THE SIMULATOR SYSTEM 


¢ 33 X25 LINES 


¢ 8 LINES PER VLX NODE, 32 FOR 4 NODES 


¢ 1 LINE FOR THE EXT10 SYSTEM 


¢ 33 MODEM ELIMINATORS (56 KB/SEC) 
¢ FOR THE 33 X25 LINES 
¢ 1 MODEM ELIMINATOR (9600 B/SEC) 


- FOR THE EXPAND LINE CONNECTING THE EXT10 
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¢ DATABASE SIZE FOR WHOLE SYSTEM 


ACCOUNT FILE 
- 33 PARTITIONS, 26 MILLION REC 


TELLER FILE 
- 33 PARTITIONS, 26000 RECORDS 


BRANCH FILE 
- 33 PARTITIONS, 2600 RECORDS 


HISTORY FILES 
- ONE PER NODE, TOTAL 5 FILES 


¢ TOTAL DATABASE EXCLUDING HISTORY 
FILES WAS OVER 2,700 MBYTES. 
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¢ ALL 


STANDARD SOFTWARE USED 


¢ B41 SOFTWARE 


q 


PATHWAY 

COBOL SERVERS FOR ENSCRIBE 
COBOL /SQL SERVERS FOR NonStop/SQL 
SCOBOL TCP 

TMF 
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SIMULATOR 
SYSTEM TEST SYSTEM 


X25 
[Cd SEND- REPLY 
WRITE 


READ 
BEGIN TRANSACTION 
SEND - REPLY 
END TRANSACTION 
REPLY 


, SERVER 
READ : 

UPDATE ACCOUNT 
UPDATE TELLER 
UPDATE BRANCH 
INSERT HISTORY 
REPLY 


ET1 - SETUP 


Tandem Computers Inc March 16, 1987 


G/ 


DEVIATIONS FROM "STANDARD" DURING TESTING 


¢ OVERDONE 


¢ TRANSACTION ARRIVAL PATTERN 


¢ THE "STANDARD" DOES NOT SPECIFY THE DISTRIBUTION 
ARRIVALS FOR THE TRANSACTIONS. FOR THIS TESTING 
A RANDOM_ARRIVAL WITH CONSTANT MEAN RATE WAS 
USED. (i.e. the distribution of the inter-arrival times was 


exponential ) 


¢ RANDOM DISTRIBUTION OF ARRIVALS CAUSES GREATER 
FLUCTUATIONS IN THE RESPONSE TIMES OF THE 
TRANSACTIONS AS COMPARED TO THE A UNIFORM 


OR CONSTANT ARRIVALS. 


¢ RANDOM ARRIVALS IS MOST REALISTIC FOR OLTP 


SYSTEMS 
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¢ OVERDONE 


¢ RESPONSE TIME MEASUREMENTS 


* RESPONSE TIMES WERE MEASURED IN THE SIMULATOR 
SYSTEMS. THIS WOULD ADD BETWEEN 150 TO 180 
MILLISECONDS TO THE RESPONSE TIMES AS COMPARED 


TO THE "STANDARD". 


¢ DATABASE SIZE 


- THE DATABASE WAS OVERSIZED. THE DATABASE 


WAS SIZED FOR 260 TPS. 
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¢ OVERDONE 
¢ ALL DISCS WERE MIRRORED 


¢ THE "STANDARD" STATES THAT ONLY LOG (TMF) DISK 


NEEDS TO BE MIRRORED. 


¢ ALL DISCS USED FOR THE BENCHMARK WERE 


MIRRORED. 
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¢ UNDERDONE 


¢ THROUGHPUT MEASUREMENTS 


ALL TPS MEASUREMENTS ARE COMPARED AT 90% 
OF TRANSACTIONS COMPLETING IN LESS THAN OR 


EQUAL TO TWO SECONDS. 


THIS WAS DONE SO THAT A COMPARISION ON’ THE 
SAME BASIS COULD BE DONE ACROSS THE TANDEM 
PROCESSOR LINE. (e.g. It would be unrealistic to measure 
the EXT10 system and compare its throughput at 95% 


transactions completing in less than or equal to 1 second.) 
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¢ UNDERDONE 


¢ NUMBER OF TERMINALS SIMULATED 


CC 


THE NUMBER OF TERMINALS SIMULATED WERE EQUAL 
TO THE NUMBER OF BRANCHES (2,600) INSTEAD OF 
THE NUMBER OF TELLERS (26,000) AS SPECIFIED IN 


THE "STANDARD". 


MOST CUSTOMERS WOULD USE CONCENTRATORS FROM 
THE BRANCHES TO THE DATABASE SYSTEMS. 

THE 10 TERMINALS AT EACH BRANCH WOULD 
NORMALLY BE CONNECTED THROUGH A_ SINGLE 
CONCENTRATOR. HENCE THE NUMBER OF TERMINALS 
SIMULATED WERE EQUAL TO THE NUMBER OF 


CONCENTRATORS ( 2,600). 
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WHY THE AUDITOR? 


¢ VALIDATE HARDWARE USED 
¢ VALIDATE BENCHMARK IMPLEMENTATION 


¢ VALIDATE MEASUREMENTS 


¢ AUDITOR - Codd & Date Consulting Group 
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Response time 
in seconds - - 
90% 


tesponse time vs. throughput - ET1 with TMF 


20 30 40 50 60 70 
Transactions per second on 8 VLXs 


* For 90% of transactions 
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NonStop/SQL - Response time vs. throughput 


‘®- 8 VLX NonStop/SQL | 
‘M- 16 VLX NonStop/SQL 
“A- 32 VLX NonStop/SQL 


Response time 
in seconds- 
90% 


100 
Transactions per second 
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90% 
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32 VLX - Response time vs. throughput ET1 - with TMF - NonStop/SQL 


0 50 100 150 200 
Transactions per second on 32 VLXs 
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16 VLX THROUGHPUT vs RESPONSE TIME - ET1 with TMF 


Response time 
in seconds - 
90% 


Transactions per second on 16 VLXs 


Tandem Computers Inc 


- NonStop/SQL 


March 16, 1987 


ov 


TPS PER PROCESSOR - LINEARITY - 1 NODE TO 4 NODES 
ET1 with TMF and Nonstop/SQL 


TX/SEC AT | 


90% 2SEC 


7 # OF VLX'S 


TOP GUN sizing 


The 32 VLX processors were configured as four systems of eight processors each. 
The next page shows the eight processor Mackie diagrams. 


Having sized the VLX processors at 8 TPS each, the EXT10 system was sized as 1/2 of a 
VLX processor. 


The following page shows a two processor EXT10 system Mackie diagram. 


Example node: With Mirrored disk config. 
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TG .3ktps Benchmark ver 6.4 June 5, 1987 


This document provides an overview of the SQL and ENSCRIBE benchmarks to be performed by 
Tandem. Included in this document are: 1) A high level description of the experiments to be run; 
2) A sizing of the benchmark, including the equipment to be used; and 3) A schedule of events 
along the way. Currently open issues and status will appear in separate documents and mail 
messages. 


Experiments 


The experiments scheduled are based upon the ET1 standard published in Datamation on April 
1, 1985. Exceptions from that standard are the use of conversational terminals instead of block 
mode devices and lines submit transactions once every ten seconds. This simulates ten attached 
terminals per X.25 line, each with a 100 second think time. 


The benchmarks are intended to demonstrate the performance of Tandem/SQL and ENSRCIBE 
over a range of system sizes. Additional tests will be run up to a 32 VLX processor configuration 
which is expected to deliver the following TPS ratings. The intent of these tests is to demonstrate 
the linearity of Tandem systems. To demonstrate performance and function of remote systems, an 
EXT10 will be processing distributed transactions during some of the tests. 


To size the benchmark the following areas are discussed here: 


Driver system CPU requirements 
Communication line requirements 
Database sizing 

disk and controller requirements 
Memory requirements 

System Configurations 


Next the deliverables of the benchmark are discussed: 
Description of the benchmark as run. 
Disclosure details of tests. 
Results. 
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Driver system CPU requirements, 


Assumptions: 
Must drive 256 TPS. 
TXP processors. 
X.25 protocol. 
340 Bytes per transaction. 
56kb lines. 


System software on the driver may be "non released software”. 
256 Byte X.25 packet size. 


Measured CPU components with TXGEN driver. 


Description TXP CPU ms 


X.25 IO Process and Interrupts 20ms 
Transaction Driver Process 3ms 


Predicted CPU requirements for Driver (Remote Terminal Emulation or Driver) system. 
23ms per TX total CPU requirement estimated for driver with COO. 
23 * 256 = 5.888 TXP seconds per second. 
Assuming 75% CPU busy: 5.888 / .75 =7.8 or 8 TXPs 
This assumes CPU balancing is perfect. Ten TXPs will be used to drive 256 TPS. Sixteen 
processors are available and built as a single system. Each processor pair on the driver system will 


generate the transactions for an 8 processor VLX. The last CPU pair will drive the EXT10 system 
and provide spare capacity. 
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muni ine requiremen 
Assumptions: 
Must drive 256 TPS. 
TXP processors (driver side). 
X.25 protocol. 
340 Bytes per transaction. 
56kb lines. 


SBS-4 (6105) a/k/a Single Board Sage is planned 
6104 bit sync controllers may be substituted for 6105s. 


Required bandwidth 

340 bytes per tx * 256 TPS = 87,040 Bytes per second 
= 87.04 KB/s 

Bandwidth per line 


S56Kbps line = 7KB/s (read or write) 
At 40% capacity 2.8 KB/s 


So 87.04 KB/s 
2.8KB/s = 31.08 or 31 lines at 40% 


If 4 lines per SBS-4 controller are assumed 
This means 31/4 or 8 controllers = 16 Total (Driver + Debit-Credit at 40%) 


Or if 2 lines per bit sync controller is assumed (SBS-4 controllers not available) 
This means 31/2 or 16controllers = 32 Total (Driver + Debit-Credit at 40%) 


These figures do not include the 2 extra controllers to drive and foreward transactions to the 
EXT10. The EXT10 comes with it’s own 6105 controller. However the Driver system will need a’ 
controller to drive the EXT10. One of the VLX systems will require an expand line for the : 
distributed remote transactions from the EXT10. 


The cost for a bit sync controller for 5 yrs is approximately $10,000. If we use eight additional 
controllers on the Debit-Credit (or 16 additional bit sync controllers in total) we will add $80k to 
our 5 year cost. This adds only $250 to $350 per transaction to our cost which is expected to be 
around $50k/t/s for 5 year system cost. 


Each active line (32 on VLX side) will require a modem eliminator for clocking the bit sync 
controller ports. Joining these 32 will be two additional modem eliminators for the EXT10 Expand 
and X.25 lines. 


Summary: 
32 Active 56kb lines. © 
1 Active 9.6kb line for EXPAND between a VLX and the EXT10. 
1 Active 37kb line for X.25 lines into the EXT10. 
34 Modem eliminators 


19 SBS-4 Controllers (10 on Debit-Credit side* and 9** on the Driver side) 
or 
33 Bit sync Controllers (17 on Debit-Credit side plus a 6105 on the EXT10 
and 17 bit sync controllers on the Driver side) 


a 8 on VLX, 1 on VLX for Expand to EXT10 and one in the EXT10. 
= 8 to drive VLX, 1 one to drive EXT10 
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Database Sizing 
Assumptions: 

Datamation standard, sized to maximum TPS rating of system. 

Expected VLX transactions per processor per second is eight. 

Eight processor systems need a 64 TPS database per node. 

A four processor system would have half the database spread over 

half the number of discs and CPUs. The partitions themselves would 

be identical. 


The 260 TPS database distributed over 5 systems will look as follows: 


File name Record Number File File 
Size of records Size Type 
Account 100 26m 2.6gb Key Seq partitioned - 12 byte key 
Branch 100 2.6k 260kb Relative partitioned 
Teller 100 26k 2.6mb Relative partitioned 
History 50 1/tx - Entry Sequenced 


A 64 TPS database on each VLX node will look as follows: 


File name Record Number File File 
Size of records Size Type 
Account 100 6.4m 640mb Key Seq partitioned - 12 byte key 
Branch 100 640 64k Relative partitioned 
Teller 100 6.4k 640k Relative partitioned 
History 50 1/tx See Table Entry Sequenced 


A 8 TPS database on each VLX partition will look as follows: 


File name Record Number File File 
Size of records Size Type 
Account 100 800k 80mb Key Seq partitioned - 12 byte key 
Branch 100 80 8k Relative partitioned 
Teller 100 800 80k Relative partitioned 
History Not partitioned See sizing equation for History file. 


The 4 TPS database on the EXT10 partition will look as follows: 


File name Record Number File ‘File 
Size of records Size Type 
Account 100 400k 40mb_ Key Seq partitioned - 12 byte key 
Branch 100 40 4k Relative partitioned 
Teller 100 400 40k Relative partitioned 
History Not partitioned See sizing equation for history file. 
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Cache sizing 


Account file cache calculation assumptions: 
4k blocking on Account file 
200 keys per index block 
Indexes to be cache resident. 


800000 records / 40 records per block = 20000 datablocks per Account partition. 
20000 index pointers at 200 pointers per block = 100 4k index blocks per Account partition. 
100 / 200 = < 1 root index block . 


101 4kbyte index blocks per Account partition 
250 4kbyte data blocks to assure data blocks are LRU. 
Partitions with 500 blocks total cache. 


Branch and Teller cache calculations: 
512 Byte blocking 
127KB Branch file + 127KB Teller file = 256 KB of Branch and Teller data 
(These files are overpopulated to achieve the desired partitioning) 
256000 /512 = 500 .5k cache blocks per Branch/Teller partition 


Total primary disk cache requirements: 351 4k blocks or 1.56 mb Account cache 
500 .5k blocks or .256 mb Branch and Teller cache 


Total primary cache per partition = 1.65mb or 3.3mb per CPU including the 
backup disk processes cache. 
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Disk and Controller requirements 


Assumptions: 


8 TPS per partition (account, branch, teller) is peak access rate. 

1 partition per CPU 

1 Account read per tx 

1 Account write per tx 

16 IOs per partition (at 8 TPS / CPU) is acceptable and will provide reasonable 
response times. 


1 History file disk per system (8 CPU or 4 CPU) shared with system disk. 
1 Mirrored Audittrail per system. (Mirrored audittrails are a requirement of ET1) 


Mirroring of the application database is not a requirement for ET1. Two different 
Pricing calculations will be made. If desired a non-mirrored test can be run to 
verify performance expectations. See "ET1 mirrored vs Non-mirrored” document. 


Each system will have: 


¢ eight mirrored volumes for each of the account, branch and teller partitions 
(V8 drives are cost-effective and suitable for the task with enough space) 

* one volume containing both history and system files 

* one audittrail volume 


Summary: 


A total of 10 mirrored volumes or 20 disk drives per 8 CPU node. With this 
configuration the physical IOs on the account branch and teller partitions would 
consist of a read from the primary or mirror and a write to the primary and mirror 
disk. The history file with 4k blocks (Each containing 80 records per block) will 
require 2 IOs for every 80 transactions. At 64 TPS this is about 1.25 IOs / second. 


For non-mirrored application database files, the disk compliment would be reduced 
in the following way. One less for each of the account, branch and teller partition 
disks or 8 fewer disks, also the history volume mirror could be deleted for a total 
reduction of 9 disks. This brings the total number of disks per node to 11. The 
history file disk space and controllers required to store 90 days of transactions must 
still be added. 
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m nd pr requiremen 


Assumptions: 


We will not exceed 8mb per CPU. The cost would be $6k per TPS to upgrade all 
CPUs to 16mb. 


Caches are about 3.5mb/CPU 
OS requirement 2+ mb 
TCP requirements for 2.5 TCPs per CPU = .Smb 


There will be 80 concurrent X.25 circuits per CPU or 640 per 8 processor node. At 
8 TPS/CPU this would require an inter-circuit arrival time of 10 seconds. 


The ET1 specification calls for a think time of 100 seconds per teller which would | 
require one hundred terminals per transaction per second, or 800 per CPU for a total 
of 6400 terminals per node. 


With 80 circuits per CPU and 8 CPUs per system this equals 640 circuits per 
system. With 32 branch circuits per TCP, 20 TCPs per system are required. 
This averages out to 2.5 TCPs per CPU. 


Each TCP requires 100k bytes for stack plus 400 bytes per circuit for context or 
100k + 1000 * 32 = 132k bytes of data per TCP, 

132k * 2.5 = .33 mb TCP data per CPU +. Imb” TCP code per CPU for 

a total of .45 or Smb/ CPU for TCPs. 


*Current measurements show the TCP code per CPU to be about 50 pages or 
100k bytes. 


The autorestart option will be for TCPs, so no backup TCP or checkpointing to the 7 
backup TCP will be required. Additionally IDS support will be used for the 
terminals. 

Server requirement .48mb for 20 SQL servers. 
COBOL/SQL Server process measurements. 


Code space 120k / CPU 
Stack & PFS 18k / server 


Eight servers per TCP = 20 Servers per CPU. 
120k + 18k * 20 = 480 or .48mb of servers per CPU 
Enscribe Server process measurements. 


Code space 40k / CPU 
Stack & PFS 10k / server 


Eight servers per TCP = 20 Servers per CPU. 
40k + 10k * 20 = 240 or .24mb of servers per CPU 
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System Configuration 


The Mackie diagram shows the full size of the benchmark. Each of the 4 VLX nodes is 
configured as shown by the systems at the top of the diagram. The one exception will be the forth 
system which will also require an Expand link to the EXT10. The example nodes demonstrate the 
following three system configurations: 


Example node descriptions: 


Full disk benchmark configuration 
This is the basic system configuration, All systems are physically configured this way. 


Mirrored disk configuration 
This is the configuration of the systems as they are run. Only discs which are utilized 
are shown. This is NOT the pricing configuration. The 90 day history file requirement 
must be added onto the 5 year cost. This then is the 5 year price configuration (burdened 
with mirrors). 


Un-mirrored disk configuration 
This is the configuration of the systems if the database were not mirrored. The audittrail 
still must be mirrored. Once again , this is NOT the pricing configuration. The 90 day 
history file requirement must be added onto the 5 year cost. This then is the 5 year price 
configuration. 


System software requirements 


Required software by product; 
Guardian, Pathway, TMF, DDL, COBOL, SQL stuff, X.25 and EXPAND 
SORT should also be included. 


Simple costing would include. 
Guardian 90XF ( Guardian, Pathway, TMF and DDL) 
COBOL and SQL Stuff 
X.25 and EXPAND 


90 Day history file requirement 


The amount of disk required to store 90 days of the History file online has been calculated 
with the following assumptions. The average transaction load is 1/3 of the peak. Also, 24 hour a 
day 7 day a week operation is assumed. The EXT10 is the most sensitive to changes because of 
low entry cost and not enough in-cabinet growth capacity. 


For the VLX nodes: | 
( 208 TPS peak * 1/3 average ) * 60 seconds * 60 minutes * 24 hours * 90 days * 50 bytes = 


26,956,800,000 bytes or 27 GB for 4 VLX nodes or 6,750,000,000 bytes or 6.7 GB per node. 
This should be about 6.7 GB per node, and require 16 XL8 volumes or 2 XL8 drives, assuming a 
non-mirrored long term history file. The initial cost is about 500k$ to support 90 days of 64tps 
banking for about 7,800$ per transaction per second. 


For the EXT10 node: 
(3 TPS peak * 1/3 average ) * 60 seconds * 60 minutes * 24 hours * 90 days * 50 bytes = 


388,800,000 bytes or 389 MB for the EXT10. The best option is to replace the internal drives and 


controllers with an XL4. A mirrored volume configured as audittrail, the other with the entire 
online database and 90 days of history. 
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ET1 Benchmark deliverables 


The objective here is a full and complete description of the test run that was run and results 
that were obtained. To achieve this the following information will be made available: : 


Description of the benchmark 


Application description 
Database description 
Requestor description 
Server description 


isclosure detai 


Implementation details of application 
Number of terminals and think times 
Database layout including locality of reference 
physical size including indexes 
TCP configuration 
Terminals per TCP 
TCP options selected 


Implementation details of system software configuration 
OS revision level and relevant sysgen options 
Expedited buffers, etc 
Number of disk processes and type 
Communication lines and type 


System hardware configuration 
Including price of required configuration. 
Initial cost including installation (free). 
Cost of ownership (other Tandem charges) for five years 


Results disclosur ription 


Response time versus throughput curves. — 
95th percentile 
90th percentile 
Average 


CPU consumption per transaction 
Total 
By process 


IOs per transaction 


By file type 
By device 


Device utilizations 
Discs 
Processors 
Comm Lines 


Driver system details 
CPU per tx and total, disk IOs. 
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schedule of events 


Dec 31 Equipment ordered for Benchmark center. 


Jan5 Publish the following: 
This Schedule 
The Mackie diagrams for 8 x 4 configuration 
The memory margin expected. 
The comm sizing calculations. 
The preliminary DB sizing. 
Jan5 Investigate changes to the driver to reduce the hardware resource requirements of the 
RTE system. 
Jan5 Have VLX four processor system up and running \Tino. 
Jan 6 Have Build 12 installed on \Tino and \Cuper. 
Jan 7 Unit test ET1 in a multi user environment. 
Jan 7 Determine ET1 driver status; Distribute driver. 
Jan 8 Complete a full ET1 SQL measurement. 
Jan 12 Harald performing Enscribe tests. 
Jan 14 Formalize the DB layout (send to Harald too) into a publishable description. 
Jan 15 Meet w/ Codd-Date Auditor Tom Sawyer. 
Jan 16 Checkpoint of plan to all involved (Will Jan 20th milestones be met?) 
Jan 20 All three sites should be activly persuing: 
B' Center Continued system configurations comm, fox, etc. 
Frankfurt Proceeding with network enscribe on 1 x 4 thru 4 x 4, (2x4?) 
Ridgeview Complete 1 x 4 tests; Complete other tests; Test software fixes 
as delivered from Tandem/SQL group, etc. ReTest as necessary. 
Jan 20 Publish results of 1 x 4. With only 500 terminals, this is to further assure the 
results for the 32 VLX benchmark. 
Jan 20 Tom Sawyer familiar with the benchmark 
Jan 21 Train arms and legs as needed (at least one Cupertino person to go to Germany). 
Jan 28 Transmittal of updated version of plan to Cupertino from Germany 


Jan 29 Network testing of Enscribe and SQL ET1 configurations should be complete. 
Jan 29 Failure mode tests defined. Capabilities established and coded software. 
Jan 29 Communication hardware decision (6105s if available). 


Feb 2 Review formal presentation Gray & Enright (in Cupertino) 

Feb 3 Have driver system and COMM hardware installed and tested at PSG. 

Feb 3 Formal presentation to Tom Sawyer of tests to be run. 

Feb 4 Begin configuring test on 4x 8 VLX configuration. Enscribe & Tandem/SQL. 


Feb 12 Bring in Tom Sawyer to begin review process. 

Feb 12 Publish results of 1 x 8 SQL and Enscribe. 

Feb 13 Review test plan with Tom Sawyer. 

Feb 13 SQL database built on 34 processors (33 partitions on 5 nodes) 
Feb 14 Build scripts and complete first 32.5 VLX SQL run. 


Feb 15 Make series of 32.5 VLX SQL runs. 

Feb 16 Vacation...Sure. (Dry run with Auditor) 

Feb 17 External show for Auditors. Get final debit amounts to be applied to database. 
Feb 18 Prepare preliminary reports on 32.5 VLX runs. 

Feb 18 Internal failure mode tests. 

Feb 20 Park all data on tapes...,etc. 

Feb 20 Shutdown/Wrap at benchmark center. 


Feb 24 Give Frank Clugage ag final report... 
Mar 16Announce to public. 
Mar 17 Have a cigar & watch the movie... 
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Price Performance Summary 


Three hardware configurations are shown for price performance 
comparison purposes. They are: 


© Benchmark compliance, plus additional fault tolerant 
capabilities 


© Benchmark compliance 


© Benchmark compliance without the 90 days of online history 
storage requirement 
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SUMMARY (NonStop / SQL ) 


ET1 - FULL TRANSACTION PROTECTION (TMF) 


TPS - 90% 5 YEAR 


SYSTEMS AT 2 SEC COST OF K$ / TPS 
RESPONSE OWNERSHIP 
TIME IN K$ 
1*8 VLX 58 3,314 56.2 
2*8 VLX 106 6,250 58.7 
4*8 VLX 208 11,436 59.6 
EXT10 4 255 63.8 


NOTES: "compliance plus" 


Above cost includes: 
- 90 day HISTORY file disk storage requirement 
- Dual data paths to 90 days of History data 
- All database and Audittrail disks mirrored 
- Full list Price (Not discounted) 
- Maintenance cost with NPV @ 15% 5 years 
- For multiple nodes, Distributed Service Option included in the pricing 
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ET1 - FULL TRANSACTION PROTECTION (TMF) 


TPS - 90% 5 YEAR 


SYSTEMS AT 2 SEC COST OF K$/TPS 
RESPONSE OWNERSHIP 
TIME IN K$ 
1*8 VLX 58 2,995 51.6 
2*8 VLX 106 5,775 54.5 
4*8 VLX 208 11,436 55.0 
EXT10 A 255 63.8 


NOTES: "straight compliance" 


Above cost includes: 
- 90 day HISTORY file disk storage requirement 
- Single data path to 90 days of History data 
- Audittrail disk(s) mirrored, Database disks not mirrored 
- Full list Price (Not discounted) 
- Maintenance cost with NPV @ 15% 5 years 
- For multiple nodes, Distributed Service Option included in the pricing 
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SUMMARY (NonStop / SQL ) 


ET1 - FULL TRANSACTION PROTECTION (TMF) 


TPS - 90% 5 YEAR 


SYSTEMS AT 2 SEC COST OF K$/TPS 
RESPONSE OWNERSHIP 
TIME IN K$ 
1*8 VLX 58 2,485 42.8 
2*8 VLX 106 4,911 46.3 
4*8 VLX 208 9,709 46.7 
EXT10 4 194 48.6 


NOTES: "compliance minus 90 day History requirement" 


Above cost includes : 
- Audittrail disk(s) mirrored, Database disks not mirrored 
- Full list Price (Not discounted) 
- Maintenance cost with NPV @ 15% 5 years 
- For multiple nodes, Distributed Service Option included in the pricin 


© Tandem Computers Inc. 1987 


Response time 
in seconds - 
90% 


32 VLX 


Response time vs. throughput ET1 - with TMF - NonStop/SQL 


Transactions per second on 32 VLXs 
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----- PARAMETERS ------7-- 9-7 ------- 97 onn nnn nnnenonnnnnnnnee- 


Test Title 
Test Date 
Test Length 
Window Length 
Tx Log File 


Terminals/X25 Line 

Tx Arrival Process 

Tx Arrival Rate/X25 Line 
Tx Arrival Rate/Terminal 
Tx Inter-Arrival Time 


Test ALL;RUNO6-32.5;SQL 
87-02-19 

19:06:55 - 19:31:09 (1454 sec) 
19:13:00 - 19:28:00 (960 sec) 
\DRIVER.$DMO1.TXGEN. TLOGSUMZ 


80 # 
RANDOM 
8.500 tx/sec 
0.106 tx/sec 
9.412 sec 


IIUli bus Uw 


TOPGUN - RESPONSE REPORTS - 4 * 8 VLX SYSTEMS - 229 TPS - NonStop/SQ 


~---- MEASUREMENT RESULTS (vs 2.083) --------------------------------- 


Tx Throughput 229.353 tx/sec 


Tx Response Time Average = 2.759 sec 
Std Dev = 1.426 sec 
Minimum = 0.549 sec 
Maximum = 142.495 sec 
Count = 206418 # 
Tx Response Time 10% = 1.550 sec ( 11.7%) 
20% = 1.800 sec ( 21.3%) 
30% = 2.000 sec ( 30.3%) 
40% = 2.250 sec ( 41.3%) 
50% = 2.500 sec ( 51.5%) 
60% = 2.750 sec ( 60.0%) 
70% = 3.150 sec ( 70.8%) 
80% = 3.650 sec ( 80.7%) 
90% = 4.400 sec ( 90.3%) 
95% = 5.100 sec ( 95.0%) 
Tx Think Average = 9.409 sec 
Std Dev = 9.389 sec 
Minimum = 0.001 sec 
Maximum = 112.020 sec 
Count = 155386 # ( 75.3%) 
Tx Delay Average = 1.728 sec 
Std Dev = 1.737 sec 
Minimum = 0.000 sec 
Maximum = 94.971 sec 
Count = 51032 # ( 24.7%) 
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Response Time Distribution * 


ET 1 


Min Max Count Thruput 


Std 


1.426 s 


0.549 s 142.495 s 206418 
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* ET1 Inter-Arrival Time Distribution * 
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* ET1 Report (Driver System) 


~~--- PARAMETERS -~----~--------------~--------------------------------- 


Test Title 
Test Date 
Test Length 
Window Length 
Tx Log File 


Terminals/X25 Line 

Tx Arrival Process 

Tx Arrival Rate/X25 Line 
Tx Arrival Rate/Terminal 
Tx Inter-Arrival Time 


Hui uu 


Test ALL;RUNO5-32.5;SQL 
87-02-19 

18:06:59 - 18:32:13 (1513 sec) 
18:15:00 - 18:30:00 (900 sec) 
\DRIVER.$DMO1.TXGEN.TLOGSUMZ 


80 # 
RANDOM 
7.500 tx/sec 
0.094 tx/sec 
10.667 sec 


220 TPS - NonStop/S$Q 
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----- MEASUREMENT RESULTS (vs 2.03) --------------------------------- 


Tx Throughput 220.530 tx/sec 
1 


Tx Response Time Average = -666 sec 
Std Dev = 0.649 sec 
Minimum = 0.405 sec 
Maximum = 58.224 sec 
Count = 198477 # 
Tx Response Time 10% = 1.050 sec ( 11.1%) 
20% = 1.200 sec ( 22.0%) 
30% = 1.300 sec ( 30.1%) 
40% 7 1.450 sec ( 42.9%) 
50% = 1.550 sec ( 50.7%) 
60% = 1.700 sec ( 61.2%) 
70% = 1.900 sec ( 72.3%) 
80% = 2.100 sec ( 80.5%) 
90% 7 2.500 sec ( 90.9%) 
95% = 2.800 sec ( 95.0%) 
Tx Think Average = 10.655 sec 
Std Dev = 10.644 sec 
Minimum = 0.001 sec 
Maximum = 128.159 sec 
Count = 170328 # ( 85.8%) 
Tx Delay Average = 0.967 sec 
Std Dev = 0.842 sec 
Minimum = 0.000 sec 
Maximum = 52.599 sec 
Count = 28149 # ( 14.2%) 
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Min Max Count Thruput 
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* ET) Inter~Arrival Time Distribution #* 


ee ee ee eee ee ae oe rm wee we ome cme ms eee eee ee ee ee ee re eee ee en ae ae a a ae a a a ee 


Mean Std Min Max Count Thruput 
10.809 s 10.527 s 0.446 s 129.222 s 198477 220.530 tx/s 


0.000 0 0.0 0.0 | 
1.000 1456 0.7 8.3 |** T 
2.000 24458 12.3 7.6 | RRR EEE EEE RE RAE TRE REE EE HARE EE EEE 
3.000 20911 10.5 6.9 | oe eR EE EAE ET EEE EEE EE EEE 
4.000 14851 7.5 6.4 |e 2 2 ee oo oe a oT 
5.000 12359 6.2 5.8 | a oR aR RR RR KK EET E 
6.000 11025 5.6 5G | aR EK KET 
7.000 10048 5.1 4.QG | FREER EEE EE EE EET 
8.000 9113 4.6 4.5 | FREER REE R ERE ERT 

9.000 8496 4.3 41 | RRR ERT 

10.000 7777 3.9 3.8 | Fe eRE RHE KEE ET 

11.000 6920 3.5 3.5 | eR RR RRR RHR ET 

12.000 6321 3.2 3.2 | RRR RRA EET 

13.000 5637 2.8 2.9 | Fe EREKT 

14.000 5508 2.8 2.7 | Fee RERERT 

15.000 4820 2.4 2.5 | ¥eeRREET 

16.000 4603 2.3 2.3 | e¥¥RRHET 

17.000 3912 2.0 2.1 | #¥****T 

18.000 3626 1.8 1.9 | ##¥**##*T 

19.000 3270 1.6 1.8 | ####*T 

20.000 2889 1.5 1.6 | *¥**#*T 

21.000 2772 1.4 1.5 | *#*#**T 

22.000 2546 1.3 1.4 |****T 

23.000 2246 1.1 1.2 | ***T 

24.000 2057 1.0 1.1 | ***T 

25.000 1927 1.0 1.0 | #**##T 

26.000 1716 0.9 1.0 |**T 

27.000 1589 0.8 0.9 |**T 

28.000 1472 0.7 0.8 |**T 

29.000 1201 0.6 0.7 |**T 

30.000 1172 0.6 0.7 |*T 

31.000 1114 0.6 0.6 |*T 

32.000 904 0.5 0.6 |*T 

33.000 851 0.4 0.5 |*T 

34.000 764 0.4 0.5 |*T 

35.000 758 0.4 0.4 |*T 

36.000 721 0.4 0.4 {|T 

37.000 602 0.3 0.4 |T 

38.000 575 0.3 0.3 |T 

39.000 469 0.2 0.3 {[T 

40.000 481 0.2 0.3 |T 

41.000 395 0.2 0.3 1T 

42.000 398 0.2 0.2 |T 

43.000 369 0.2 0.2 |T 

44.000 285 0.1 O.2. | T 
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* ET1 Report (Driver System) - TOPGUN PROJECT * 
----- PARAMETERS --------~--------------------------------------------- 
Test Title Test ALL;RUNO2-32.5;SQL 


Test Date 
Test Length 
Window Length 
Tx Log File 


87-02-19 

14:01:49 - 14:42:11 (2421 sec) 
14:21:00 - 14:36:00 (900 sec) 
\DRIVER.$DMO1.TXGEN.TLOGSUMZ 


80 # 
RANDOM 
6.500 tx/sec 
0.081 tx/sec 
12.308 sec 


Terminals/X25 Line 

Tx Arrival Process 

Tx Arrival Rate/X25 Line 
Tx Arrival Rate/Terminal 
Tx Inter-Arrival Time 


41 


Tx Throughput 
Tx Response Time Average 


Tx Response Time 


Tx Think 


Tx Delay 


MEASUREMENT RESULTS 


Std Dev 
Minimum 
Max imum 
Count 


10% 
20% 
30% 
40% 
50% 
60% 
70% 
80% 
90% 
95% 


Average 
Std Dev 
Minimum 
Max imum 
Count 


Average 
Std Dev 
Minimum 
Maximum 
Count 
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TOPGUN - RESPONSE REPORTS - 4 * 8 VLX SYSTEMS - 


(9S: (208) ASS eee eras Sen Sees 


206.040 tx/sec 


1.271 sec 
0.485 sec 
0.335 sec 
42.176 sec 
185436 # 


-800 sec 
-950 sec 
-.000 sec 
-100 sec 


0.737 sec 
0.602 sec 
0.000 sec 
36.932 sec 
17922 # 


ON LO LO LO LO LN LN LN 


( 


10.4%) 
25.2%) 
31.1%) 
43.1%) 
53.8%) 
62.7%) 
70.1%) 
80.8%) 
90.5%) 
95.5%) 


90.3%) 


9.7%) 


206 TPS - NonStop/SQ 


ra 
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* £—T1 Response Time Distribution * 


Mean Std Min Max Count Thruput 
1.271 s 0.485 s 0.335 s 42.176 s 185436 206.040 tx/s 


RespTime Count Pct CumPct 


ee ee ee ee 


0.000 0 0.0 0.0 | 

0.100 0 0.0 0.0 | 

0.200 0 0.0 G20: "| 

0.300 0 0.0 0.0 | 

0.400 6 0.0 0.0 | 

0.500 245 0.1 0.1 | 

0.600 1801 1.0 1.1 | *** 

0.700 5879 3.2 4.3 | #¥** ee ee HH 

0.800 11351 6.1 10.4 | 28 FE Ee eo EE 

0.900 17195 9.3 19.7 | oe oe oe RRR RRR RE RE + 
1.000 21182 11.4 B11 | Ee a eR RE EE 
1.100 22220 V2.0 AG. 1 | eo RRR RR RR RRR RE ER ORE 
1.200 19855 10.7 53.8 | R¥¥RREER RRR EERE REE EEE EERE RE RK EEE EEE 
1.300 16576 8.9 62.7 | 3 3 a Ae Ae eR RR RR a Rk 
1.400 13598 7.3 70.1 [2 eo eo 

1.500 11054 6.0 76.0 | Pe oe oe oe oe eo oe ok ae oe a ook ok ok 

1.600 8813 4.8 80.8 | ###*#eRRHEKRKE HEX 

1.700 7181 3.9 B4.6 | ##eHEE EHR E EHS 

1.800 5987 3.2 87.9 | *#RRERKKEE 

1.900 4797 2.6 90.5 | ## #8 eK KK 

2.000 3834 2.1 92,5 | *#*# ee eX 

2.100 3049 1.6 94.2 |*#**** 

2.200 2439 1.3 95.5 |**** 

2.300 1928 1.0 96.5 |*** 

2.400 1403 0.8 97.3 |** 

2.500 1047 0.6 97.8 |* 

2.600 851 0.5 98.3 |* 

2.700 640 0.3 98.6 |* 

2.800 469 0.3 98.9 | 

2.900 392 0.2 99.1 | 

3.000 295 0.2 99.3 | 

3.100 253 0.1 99.4 | 

3.200 201 0.1 99.5 | 

3.300 155 0.1 99.6 | 

3.400 118 0.1 99.7 | 

3.500 100 0.1 99.7 | 

3.600 61 0.0 99.8 | 

3.700 75 0.0 99.8 | 

3.800 62 0.0 99.8 | 

3.900 42 0.0 99.8 | 

4.000 35 0.0 99.9 | 

4.100 34 0.0 99.9 | 

4.200 24 0.0 99.9 | 

4.300 24 0.0 99.9 | 
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TOPGUN - RESPONSE REPORTS - 4 * 8 VLX SYSTEMS - 206 TPS - NonStop/SQ 


* ET1 Inter-Arrival Time Distribution * 


Mean Std Min Max Count Thruput 
12.373 s 12.163 s 0.464 s 149.103 s 185436 206.040 tx/s 


0.000 0 0.0 0.0 
1.000 4415 2.4 7.7 «| eee RR KES T 
2.000 21177 11.4 71 | FRR Oe EE TR EE EE EE EEE EE 
3.000 13953 7.5 6.6 | RRR RRR HE RE A EE AT 4 
4.000 11582 6.2 61 | a a a i a a aa a aaa 
5.000 10471 5.6 5.6 | RR EET 
6.000 9676 5.2 BoD | RE EEE ET 
7.000 8953 4.8 4.8 | REE EEE EEE EET 
8.000 8095 4.4 ALA | EEE EET 
9.000 7482 4.0 4,1 |*#*#### RHR HER HET 
10.000 6992 3.8 BlL7 | RRR EEE ET 

11.000 6494 3.5 3.5 | eee eR RRR EEE ET 

12.000 5994 3.2 3.2 | RRR RRE EER EET 

13.000 5293 2.9 2.9 | FERRER EET 

14.000 5170 2.8 2.7 | RRR RRR ET 

15.000 4541 2.4 2.5 | #eeeeERET 

16.000 4374 2.4 2.3 |****###**T 

17.000 3998 2.2 2.1 | *# eee RET 

18.000 3856 2.1 2.0 |*#¥##**T 

19.000 3399 1.8 1.8 | #*¥####T 

20.000 3121 Lad 1.7 | *****T 

21.000 2888 1.6 1.5 | ##*#**T 

22.000 2575 1.4 1.4 |*##**T 

23.000 2376 1.3 1.3 | *#***T 

24.000 2320 1.3 1.2 | ***T 

25.000 2135 i ee’ 1.1) | *#¥**T 

26.000 1821 1.0 1.0 | *#¥*#*T 

27.000 1792 1.0 1.0 |***T 

28.000 1591 0.9 0.9 |**T 

29.000 1483 0.8 0.8 |**T 

30.000 1406 0.8 0.7 |**T 

31.000 1255 0.7 0.7 |#**T 

32.000 1275 0.7 0.6 |*T 

33.000 i023 0.6 6.6 |*T 

34.000 935 0.5 0.5 |*T 

35.000 820 0.4 0.5 |*T 

36.000 903 0.5 0.5 |[*T 

37.000 709 0.4 0.4 |#*T 

38.000 729 0.4 0.4 |T 

39.000 672 0.4 0.4 [T 

40.000 636 0.3 0.3 (T 

41.000 545 0.3 0.3 [T 

42.000 478 0.3 40.3 |T 

43.000 512 0.3 60.3 |T 

44.000 464 0.3 40.2 |T 


ls 
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TOPGUN - RESPONSE REPORTS - 4 * 8 VLX SYSTEMS 


* ET1 Report (Driver System) 


- TOPGUN PROJECT * 


----- PARAMETERS ~--~~-----~---- 3-73 ----- 92-2 -- +--+ 


Test Title 
Test Date 
Test Length 
Window Length 
Tx Log File 


Terminals/X25 Line 

Tx Arrival Process 

Tx Arrival Rate/X25 Line 
Tx Arrival Rate/Terminal 
Tx Inter-Arrival Time 


iout uu 


Test ALL;RUNO3-32.5;SQL 
87-02-19 

15:53:53 - 16:20:09 (1576 sec) 
16:04:00 - 16:19:00 (900 sec) 
\DRIVER.$DMO1.TXGEN.TLOGSUMZ 


80 # 
RANDOM 
5.500 tx/sec 
0.069 tx/sec 
14.545 sec 


175 TPS - NonStoap/sSqQ 


Mp 


TOPGUN - RESPONSE REPORTS - 4 * 8 VLX SYSTEMS - 175 TPS - NonStop/SQ 


----- MEASUREMENT RESULTS (v8 2.03) ~------- enone monn enn nnn nnn nnn 


Tx Throughput 175.162 tx/sec 


Tx Response Time Average = 0.933 sec 
Std Dev = 0.331 sec 
Minimum = 0.293 sec 
Maximum = 16.605 sec 
Count = 157646 # 
Tx Response Time 10% = 0.650 sec ( 13.1%) 
20% = 0.700 sec ( 20.3%) 
30% = 0.800 sec ( 37.4%) 
40% = 0.850 sec ( 46.3%) 
50% = 0.900 sec ( 54.6%) 
60% = 0.950 sec ( 62.1%) 
70% = 1.050 sec ( 73.9%) 
80% = 1.150 sec ( 82.0%) 
90% = 1.350 sec ( 91.3%) 
95% = 1.500 sec ( 95.2%) 
Tx Think Average = 14.567 sec 
Std Dev = 14.586 sec 
Minimum = 0.001 sec 
Maximum = 175.431 sec 
Count = 147983 # ( 93.9%) 
Tx Delay Average = 0.530 sec 
Std Dev = 0.523 sec 
Minimum = 0.000 sec 
Maximum = 16.060 sec 
Count = 9663 # ( 6.1%) 


AP 
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* ET1 Response Time Distribution * 


Mean Std Min Max Count Thruput 
0.933 s 0.331 s 0.293 s 16.605 s 157646 175.162 tx/s 


0.000 0 0.0 0.0 | 

0.100 0 0.0 0.0 | 

0.200 a) 0.0 0.0 | 

0.300 2 0.0 0.0 | 

0.400 184 0.1 0.1 | 

0.500 2257 1.4 1.5 | *** 

0.600 9546 6.1 7.6 | RRR RRR EKER EES 

0.700 19969 12.7 20.3 [ERROR RR EE 
0.800 26928 17.1 37.4 [2 oR ae ke ee RI EE EE EEE OEE Ee 
0.900 27260 17.3 54.6 [oo 2 2 ke ee ke REE OR RR EK KE & 
1.000 21866 13.9 68.5 | 3 eo ee oo oe EEE EE EEE 
1.100 15568 9.9 78.4 | BRR RE EK RR EE ERE EEE EE 
1.200 10358 6.6 85.0 | *###ee ee eK ERE KES 

1.300 7223 4.6 89.5 |*##*¥ eee RE KH 

1.400 5194 3.3 92.8 |*#### eee 

1.500 3769 2.4 95.2 | ***e* 

1.600 2501 1.6 96.8 |*** 

1.700 1699 1.1 97.9 |** 

1.800 1027 0.7 98.5 |* 

1.900 659 0.4 99.0 |* 

2.000 405 0.3 99.2 | 

2.100 282 0.2 99.4 | 

2.200 181 0.1 99.5 | 

2.300 149 0.1 99.6 | 

2.400 116 0.1 99.7 | 

2.500 87 GO.1 99.7 | 

2.600 77 0.0 99.8 | 

2.700 54 0.0 99.8 | 

2.800 41 0.0 99.8 | 

2.900 33 0.0 99.9 | 

3.000 28 0.0 99.9 | 

3.100 24 0.0 99.9 | 

3.200 19 0.0 99.9 | 

3.300 14 0.0 99.9 | 

3.400 14 0.0 99.9 | 

3.500 11 0.0 99.9 | 

3.600 12 0.0 99.9 | 

3.700 6 0.0 99.9 | 

3.800 12 0.0 100.0 | 

3.900 3 0.9 100.0 ! 

4.000 9 0.0 100.0 | 

4.100 Z 0.0 100.0 | 

4.200 2 0.0 100.0 | 

4.300 2 0.0 100.0 | 
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TOPGUN - RESPONSE REPORTS - 4 * 8 VLX SYSTEMS ~ 175 TPS - NonStop/SQ 


* ET1 Inter-Arrival Time Distribution * 


Mean Std Min Max Count Thruput 
14.607 s 14.552 s 0.354 s 176.217 s 157646 175.162 tx/s 


0.000 0 0.0 0.0 

1.000 7109 4.5 GC. 6 | RRR RRR REE EERE EERE ER EEE T 
2.000 12840 8.1 GD | RRR REE EEE REE EERE EE TRE KER ERE EE 
3.000 9312 5.9 5B | RRR RRR EER RR RR RRR RK EEK KET 
4.000 8521 5.4 BG | Ra RR RRR KR RR RK EET 
5.000 8031 5.1 5.0 | RE EERE RAE E KT 
6.000 7399 4.7 QT | FR oe oe oo oi ok oo oR KK KT 
7.000 6816 4.3 4G | RRRR RAKE EE REAR RE KE EET 
8.000 6290 4.0 Ql] | RR RRR RK KEKE RA RK KK KET 
9.000 6105 3.9 3.8 | a a a RO oR ET 
10.000 5671 3.6 3.6 | FRR eR E RE KK EEK KE EAT 

11.000 5252 3.3 Q.Q | RRR RAR KEKE EET 

12.000 4970 3.2 3.1 | HR RK RR KEKE KEK EET 

13.000 4620 2.9 2.9 | #RERER REE EERERT 

14.000 4448 2.8 2.7 | HERR R HR KEKE ERT 

15.000 3908 2.5 2.5 | RRR RR KK EEE ET 

16.000 3749 2.4 2.4 | RRR REE RHE RET 

17.000 3468 2.2 2.2 | FRR REE EET 

18.000 3128 2.0 2.1 | ¥¥e RRR REET 

19.000 3217 2.0 1.9 | ##eREEERET 

20.000 2754 1.7 1.8 | #¥eeRRHET 

21.000 2755 Le? 1.7 | eee RRR ERT 

22.000 2651 1.7 1.6 | ## ee RR ET 

23.000 2212 1.4 1.5 | eee RET 

24.000 2118 1.3 1.4 | ***#e*T 

25.000 2069 1.3 1.3 | ####*4*T 

26.000 1841 1.2 1.2 | *#****T 

27.000 1645 1.0 1.10 | ##** eT 

28.000 1663 Lie 1.0 | *#***T 

29.000 1499 1.0 1.0 | *##**T 

30.000 1473 0.9 0.9 | ****T 

31.000 1270 0.8 0.8 |*#**T 

32.000 1328 0.8 0.8 |¥***T 

33.000 1132 0.7 O.7 | *#**T 

34.000 1146 0.7 0.7 |***T 

35.000 1030 0.7 0.6 |**T 

36.000 890 0.6 0.6 | ¥**T 

37.000 978 0.6 0.6 | ¥*#T 

38.000 856 0.5 0.5 |**T 

39.000 74) 0.5 0.5 |**T 

40.000 753 0.5 0.5 |*T 

41.000 666 0.4 0.4 |*T 

42.000 652 0.4 0.4 |*T 

43.000 554 0.4 0.4 [*T 

44.000 534 0.3 0.3 |#*T 
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TOPGUN - RESPONSE REPORTS - 4 * 8 VLX SYSTEMS - 


* ET1 Report (Driver System) 


----- PARAMETERS --~---------------~---------------------------------- 


Test Title 
Test Date 
Test Length 
Window Length 
Tx Log File 


Terminals/X25 Line 

Tx Arrival Process 

Tx Arrival Rate/X25 Line 
Tx Arrival Rate/Terminal 
Tx Inter-Arrival Time 


Test ALL;RUNO4-32.5;SQL 
87-02-19 

19:58:09 - 20:22:07 (1438 sec) 
20:04:00 - 20:19:00 (900 sec) 
\DRIVER.$DMO1.TXGEN.TLOGSUMZ 


80 # 
RANDOM 
4.500 tx/sec 
0.056 tx/sec 
17.778 sec 


143 TPS - NonStop/SsQ 


Tx Throughput 
Tx Response Time 


Tx Response Time 


Tx Think 


Tx Delay 


MEASUREMENT RESULTS 


Average 
Std Dev 
Minimum 
Maximum 
Count 


10% 
20% 
30% 
40% 
50% 
60% 
70% 
80% 
90% 
95% 


Average 
Std Dev 
Minimum 
Maximum 
Count 


Average 
Std Dev 
Minimum 
Maximum 
Count 


Rt vw down ww ut 


(vs 2.03) 


142.944 
0.827 
0.285 
0.261 

16.038 
128650 


-600 
.650 
700 
.750 
800 
-850 
-900 
-000 


-~--Q000000 


214.754 
122814 


0.463 
0.427 
0.000 
12.307 
5836 
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tx/sec 


sec 
sec 
sec 
sec 


sec 
sec 
sec 
sec 
# 


ONL LON ON ON LN LON LN NTN 


( 


15.2%) 
23.0%) 
32.4%) 
42.9%) 
53.6%) 
63.4%) 
71.0%) 
81.9%) 
90.5%) 
95.1%) 


95.5%) 


4.5%) 
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TOPGUN - RESPONSE REPORTS - 4 * 8 VLX SYSTEMS - 143 TPS - NonStop/SQ 


* ET1 Response Time Distribution #* 


Mean Std Min Max Count Thruput 
0.827 s 0.285 s 0.261 s 16.038 s 128650 142.944 tx/s 


0.000 0 0.0 0.0 | 

0.100 0 0.0 0.0 | 

0.200 0 0.0 0.0 | 

0.300 12 0.0 0.0 | 

0.400 553 0.4 0.4 | 

0.500 4803 3.7 4.2 | RRR KK 

0.600 14192 11.0 15,2 | F¥ HERE RE EER EEE EES 
0.700 22061 17.100 32.4 | RRR RRR EEE EERE EER EER EE EE EEE EE EEK 
0.800 27398 21.3 5SO.6 | RK ERE EEE EERE EE KEE 
0.900 22306 17.3 71.0 | A A 2 IRR RR RR ER EK 
1.000 14009 10.9 81.9  Reddadedekeledadakedleked deketedetedetes 
1.100 8298 6.5 88.3 | #¥# ee KEKE HE 

1.200 5044 3.9 92.2 | *#**ee¥# 

1.300 3650 2.8 95.1 |##*#+ 

1.400 2581 2.0 97.1 |**# 

1.500 1515 1.2 98.3 |** 

1.600 875 0.7 98.9 |* 

1.700 440 0.3 99.3 | 

1.800 248 0.2 99.5 | 

1.900 137 0.1 99.6 | 

2.000 96 0.1 99.7 | 

2.100 60 0.0 99.7 | 

2.200 48 0.0 99.7 | 

2.300 47 0.0 99.8 | 

2.400 34 0.0 99.8 | 

2.500 24 0.0 99.8 | 

2.600 31 0.0 99.9 | 

2.700 17 0.0 99.9 | 

2.800 17 0.0 99.9 | 

2.900 16 0.0 99.9 | 

3.000 15 0.0 99.9 | 

3.100 19 0.0 99.9 | 

3.200 12 0.0 99.9 | 

3.300 13 0.0 99.9 | 

3.400 11 0.0 99.9 | 

3.500 9 0.0 100.0 | 

3.600 7 0.0 100.0 | 

3.700 7 0.0 100.0 | 

3.800 6 0.0 100.0 | 

3.900 4 0.0 100.0 } 

4.000 6 0.0 100.0 | 

4.100 5 0.0 100.0 | 

4.200 1 0.0 100.0 | 

4.300 1 0.0 100.0 | 


So 
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IHNIFOIRWE IReport 
NonStop/SQL 
4*8 VLX SYSTEMS + 1 EXT10 


Throughput - 219 TPS 


NODES A,B,C,D - 8 VLXs 
NODE E- 1EXT10 


TOPGUN - ENFORM REPORTS FROM 4*8 VLX SYSTEMS AND 1*2PROCESSOR EXT10 SYSTE 


CPU UTILISATION PER TRANSACTION 
SUMMARIZED FOR A 7 MINUTE PERIOD 


AVG CPU CPU PER INTRPT BUSY DISC IOS CHITS 
LOADID NUM-TRANS TPS BUSY % TRANS PER TRANS PER TRANS PER TRANS 
SQL222 A 22691 54.167 88.351 1304 031 3.6 5.1 
SQL222 B 22830 54.628 88.763 .1299 .031 3.5 9.1 
SQL222 C 22740 54.185 88.531 - 1307 .031 3.6 5.1 
SQL222 D 21982 52.481 88.374 1347 032 3.6 5.1 
SQL222 E 1523 3.626 21.105 4656 -082 5.8 5.0 


ate 


CPU UTILISATION BY PROCESS TYPE 


CPU PER SENDS PER 


PROCESS~TYPE TRANS TRANS 
ATB-B 5.475 007 
ATB-P 28.091 917 
AUDIT-B - 680 001 
AUDIT-P 1.908 617 
FOX .426 179 
HISTORY-B 2.957 -000 
HISTORY-P 5.678 .123 
INTERRUPTS 31.116 -000 
MISC .359 . 150 
PATHMON .050 .006 
SERVER 22.236 4.125 
TCP 18.093 2.000 
TMF MONITOR 3.428 .000 
TMP 3.232 .770 
X.25 6.596 -000 
130.325 8.893 


Loadid - SQL222 A 
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PER 


TRANS 


CPU BUSY 
PERCENT 
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CPU UTILISATION BY PROCESS TYPE 


CPU PER 
PROCESS-TYPE TRANS 


ATB-B 5.445 
ATB-P 27.866 
AUDIT-B 669 
AUDIT-P 1.894 
FOX . 369 
HISTORY~-B 2.967 
HISTORY-P 5.685 
INTERRUPTS 30.851 
MISC .347 
PATHMON -023 
SERVER 22.707 
TCP 18.002 
TMF MONITOR 3.390 
TMP 3.147 
X.25 6.489 

129.850 
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SENDS PER 
TRANS 


RECVS 


PER 


TRANS 


CPU BUSY 
PERCENT 


29.744 
152.229 
3.656 
10.347 
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CPU UTILISATION BY PROCESS TYPE 


CPU PER SENDS PER 


PROCESS-TYPE TRANS TRANS 
ATB-B 5.437 008 
ATB-P 27.886 977 
AUDIT-B -675 001 
AUDIT-P 1.906 624 
FOX -432 .174 
HISTORY-B 2.995 000 
HISTORY-P 5.610 .123 
INTERRUPTS 31.054 .000 
MISC . 368 . 168 
SERVER 23.269 4.139 
TCP 17.963 2.002 
TMF MONITOR 3.318 .000 
TMP 3.223 .779 
X.25 6.439 000 
130.573 8.994 
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CPU BUSY 
PERCENT 
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CPU UTILISATION BY PROCESS TYPE 


CPU PER SENDS PER 


PROCESS~TYPE TRANS TRANS 
ATB-B 5.570 009 
ATB-P 28.280 1.099 
AUDIT~B . 703 000 
AUDIT-P 2.005 . 666 
FOX .888 -405 
HISTORY-B 3.096 .000 
HISTORY-P 5.732 -126 
INTERRUPTS 32.179 .000 
MISC 363 - 163 
PATHMON -026 .003 
SERVER 23.860 4.141 
TCP 17.875 2.000 
TMF MONITOR 3.276 -000 
TMP 3.364 .810 
x. 25 7.357 . 166 
134.573 9.588 
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CPU UTILISATION BY PROCESS TYPE 


CPU PER SENDS PER 


PROCESS-TYPE TRANS TRANS 
ATB-B 31.893 015 
ATB-P 136.452 3.297 
FOX .018 .000 
INTERRUPTS 81.709 000 
MISC 2.002 .007 
PATHMON .000 .000 
SERVER 86.987 4.179 
TCP 54.085 2.001 
TMF MONITOR 6.508 .000 
TMP 18.530 2.232 
X.25 44.676 601 
462.860 12.332 


Loadid - SQL222 E 
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PERCENT 
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TOPGUN - ENFORM REPORTS FROM 4*8 VLX SYSTEMS AND 1¥*2PROCESSOR EXT10 SYSTE 


DETAILED CPU UTILIZATION BY TRANSACTION 


PROCESS-TYPE CPU O CPU 1 CPU 2 CPU 3 CPU 4 CPU 5 CPU 6 CPU 7 
ATB-B 3.510 3.500 3.730 3.640 3.810 3.850 3.790 3.770 
ATB-P 18.450 18.340 18.650 18.510 19.780 18.870 20.590 18.920 
AUDIT~-B 000 000 000 .000 000 3.680 000 000 
AUDIT-P 000 000 000 .000 10.330 000 000 000 
FOX 000 .000 310 .000 570 000 1.410 000 
HISTORY-B -000 16.010 - 000 .900 -000 -000 .000 .000 
HISTORY-P 30.750 .000 -000 .000 -000 -000 .000 -000 
INTERRUPTS 19.880 17.290 25.590 18.830 23.190 21.530 21.120 21.080 
MISC 1.450 .350 .020 .020 -020 -010 .020 .020 
PATHMON . 260 .-000 .000 .000 .000 .000 .000 .000 
SERVER 13.400 18.760 14.130 15.550 14.080 13.930 15.830 14.740 
TCP .000 9.420 .000 14.960 14.930 24.580 14.730 19.350 
TMF MONITOR 1.660 2.420 1.120 2.460 2.510 3.160 2.430 2.770 
TMP 1.150 .000 16.350 .000 .-000 .000 .000 .000 
X.25 .000 -000 9.100 8.680 .000 .000 9.070 8.870 
90.510 86.090 89.000 82.650 89.220 89.610 88.990 89.520 
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DETAILED CPU UTILIZATION BY TRANSACTION 


PROCESS-TYPE CPU 0 CPU 1 CPU 2 CPU 3 CPU 4 CPU 5 CPU 6 CPU 7 
ATB-B 3.620 3.750 3.750 3.700 3.670 3.750 3.690 3.780 
ATB-P 19.200 19.020 18.690 18.730 19.170 18.660 20.060 18.650 
AUDIT-B 000 000 000 -000 .000 3.650 000 000 
AUDIT-P 000 000 ooo - 000 10.340 000 000 000 
FOX 000 -000 330 000 370 -000 1.300 000 
HISTORY-B -000 16.210 -000 -000 .000 .000 .000 .000 
HISTORY-P 31.050 .000 .000 .000 . 000 .000 .000 .000 
INTERRUPTS 20.240 17.510 25.640 18.910 23.020 21.330 20.880 20.960 
MISC 1.400 - 360 .020 -010 -020 -020 .020 .020 
PATHMON -120 .000 .000 .000 .000 .000 .000 .000 
SERVER 13.930 19.630 15.070 16.360 16.030 13.560 15.180 14.240 
TCP .000 9.480 .000 14.800 14.920 24.500 14.870 19.740 
TMF MONITOR 1.650 2.440 1.120 2.440 2.480 3.150 2.420 2.780 
TMP 1.130 .000 16.050 .000 .000 .000 .000 .000 
X.25 . 000 -000 9.020 8.640 .000 . 000 8.930 8.840 
92.340 88.400 89.690 83.590 90.020 88.620 87.350 89.010 
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DETAILED CPU UTILIZATION BY TRANSACTION 
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SERVER 
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TMP 

X.25 


LOADID - SQL222 C 


TOPGUN - ENFORM REPORTS FROM 4*8 VLX SYSTEMS AND 


CPU 4 


CPU 


5 


1*2PROCESSOR EXT10 SYSTE 


£U. 


TOPGUN - ENFORM REPORTS FROM 4*8 VLX SYSTEMS AND 1*2PROCESSOR EXT10 SYSTE 


DETAILED CPU UTILIZATION BY TRANSACTION 


PROCESS-TYPE CPU O CPU 1 CPU 2 CPU 3 CPU 4 CPU 5 CPU 6 CPU 7 
ATB-B 3.610 3.510 3.820 3.560 3.670 3.580 3.600 3.830 
ATB-P 18.100 18.480 17.600 18.370 18.810 18.290 20.340 18.380 
AUDIT-B ooo 000 000 .-000 ooo 3.690 000 coo 
AUDIT-P 000 000 .000 .000 10.520 000 000 ooo 
FOX .000 .-000 1.490 .000 1.520 -000 1.630 .000 
HISTORY-B .000 16.250 .000 .000 -000 .000 .000 .000 
HISTORY-P 30.080 .000 .000 .000 .000 .000 .000 .000 
INTERRUPTS 19.690 17.570 26.040 18.570 23.570 20.640 20.520 22.250 
MISC 1.420 330 020 .020 -020 020 020 020 
PATHMON 130 000 000 .000 -000 000 000 000 
SERVER 14.410 20.370 13.200 16.930 17.080 12.860 15.060 15.270 
TCP 060 9.380 000 14.680 13.820 23.740 14.060 18.100 
TMF MONITOR 1.610 1.950 1.170 2.050 2.350 3.100 2.380 2.550 
TMP 1.160 .000 16.480 .000 -000 -000 .000 .000 
X.25 -000 -000 8.580 8.480 -000 .000 8.410 13.120 
90.210 87.840 88.400 82.660 91.360 85.920 86.020 93.520 
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DETAILED CPU UTILIZATION BY TRANSACTION 


PROCESS-TYPE CPU O CPU 1 CPU 2 CPU 3 CPU 4 CPU 5 CPU 6 CPU 7 
ATB-B 11.560 000 000 .000 000 000 000 000 
ATB-P 000 49.470 000 .000 000 000 000 000 
FOX .000 .000 000 .000 .000 000 000 000 
INTERRUPTS 16.230 13.390 .000 .000 .000 .000 .000 .000 
MISC .670 .050 .000 .000 .000 .000 .000 .000 
PATHMON .000 .000 .000 .000 000 .-000 .000 .000 
SERVER 19.280 12.250 000 .000 .-000 .000 .000 .000 
TCP 19.610 .000 -000 -000 -000 .000 .000 -000 
TMF MONITOR 1.870 - 480 .000 -000 -000 -000 -000 -000 
TMP 6.270 -440 .000 -000 -000 -000 .000 .000 
X.25 16.190 .000 .000 -000 .000 -000 .000 .000 
91.680 76.080 000 .000 000 000 000 000 
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Disc Utilisation Summary per Transaction 


REQ PER READS PER WRITES PER 

USAGE TRANS TRANS TRANS 
ATB 3.116 1.003 2.097 
AUDIT TRAILS -618 -001 -376 
HISTORY 1.000 -002 -027 
UNUSED .000 .000 .000 
XRAY .030 -005 -105 
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Disc Utilisation Summary per Transaction 


REQ PER READS PER WRITES PER 

USAGE TRANS TRANS TRANS 
ATB 3.095 990 2.082 
AUDIT TRAILS 617 001 366 
HISTORY 1.000 001 027 
UNUSED 000 000 000 
XRAY 029 005 .073 
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Disc Utilisation Summary per Transaction 


REQ PER READS PER WRITES PER 

USAGE TRANS TRANS TRANS 
ATB 3.110 .995 2.081 
AUDIT TRAILS 625 .001 371 
HISTORY 1.002 002 027 
UNUSED 000 000 000 
XRAY .030 004 098 
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Disc Utilisation Summary per Transaction 


REQ PER READS PER WRITES PER 

USAGE TRANS TRANS TRANS 
ATB 3.122 1.001 2.099 
AUDIT TRAILS . 666 .001 .394 
HISTORY 1.000 002 .027 
UNUSED .000 -000 .000 
XRAY .031 -005 . 104 
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Disc Utilisation Summary per Transaction 


REQ PER READS PER WRITES PER 


USAGE TRANS TRANS TRANS 
ATBt+HISTORY 4.093 1.081 2.171 
AUDIT 1.710 .031 2.498 
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Dise Utilisation Summary 


SUM SUM SUM 
USAGE REQUESTS READS WRITES 512 HITS 1024 HITS 2048 HITS 4096 HITS 
ATB 70702 22766 47588 23544 520 22438 46931 
AUDIT TRAILS 14015 17 8537 8) 0 0 19 
HISTORY 22702 35 621 0 0 0 22703 
UNUSED (8) 0 0 0 0 0 0 
XRAY 686 105 2373 0 0 0 0 
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Disc Utilisation Summary 


SUM 
USAGE REQUESTS 
ATB 70656 
AUDIT TRAILS 14093 
HISTORY 22837 
UNUSED 0 
XRAY 670 
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SUM 
WRITES 


512 HITS 
23637 
0 
0 
0 
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Disc Utilisation Summary 


SUM SUM SUM 
USAGE REQUESTS READS WRITES 512 HITS 1024 HITS 2048 HITS 4096 HITS 
ATB 70722 22636 47327 23526 556 22470 46695 
AUDIT TRAILS 14213 16 8436 0 0 0 19 
HISTORY 22785 37 616 0 0 8) 22778 
UNUSED 0 8) 0 8) 0 0 0 
XRAY 674 96 2236 0 0 0 0 
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Disc Utilisation Summary 


SUM SUM SUM 
USAGE REQUESTS READS WRITES 512 HITS 1024 HITS 2048 HITS 4096 HITS 
ATB 68624 22001 46143 22833 606 21717 45530 
AUDIT TRAILS 14641 12 8656 0 0 0 26 
HISTORY 21991 40 603 0 0 0 21992 
UNUSED 5 0 0 0 0 0 0 
XRAY 692 102 2293 0 0 0 0 
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Disc Utilisation Summary 


SUM SUM SUM 
USAGE REQUESTS READS WRITES 512 HITS 1024 HITS 2048 HITS 4096 HITS 
ATB+HISTORY 6233 1646 3307 1567 44 1452 4590 
AUDIT 2604 47 3805 0 ie) 0 26 
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Communications line utilisation summary 


SUM input output write input 
DEVICE-NAME REQUESTS bytes bytes utilisation utilisation 
$XA1 2840 314801 596820 20.300 10.708 
$XA2 2832 313731 595256 20.247 10.671 
$XA3 2819 312482 593533 20.188 10.629 
$XA4 2770 307130 583166 19.835 10.447 
$XA5 2886 319867 607406 20.658 10.879 
$XA6 2859 316894 601601 20.461 10.778 
$XA7 2858 317025 601598 20.462 10.783 
$XAB 2839 314686 597701 20.330 10.704 


22703 2516616 4777081 
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Communications line utilisation summary 


SUM input output write input 
DEVICE-NAME REQUESTS bytes bytes utilisation utilisation 
$XB1 2870 318821 603234 20.518 10.844 
$XB2 2830 313830 598423 20.355 10.675 
$XB3 2818 312549 593314 20.181 10.631 
$XB4 2821 312703 593855 20.199 10.636 
$XB5 2899 321092 610181 20.756 10.922 
$XB6 2850 316010 599866 20.405 10.749 
$XB7 2856 316438 601244 20.450 10.763 
$XBB8 2874 318614 604946 20.576 10.837 


22818 2530057 4805063 
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Communications line utilisation summary 


SUM input output write input 
DEVICE-NAME REQUESTS bytas bytes utilisation utilisation 
$XC1 2841 314757 596609 20.293 10.706 
$XC2 2861 316795 601023 20.443 10.775 
$xXC3 2859 316708 601765 20.468 10.772 
$XC4 2853 316641 600495 20.425 10.770 
$XC5 2834 313941 596446 20.287 10.678 
$XC6 2867 317694 603238 20.518 10.806 
$XC7 2848 315808 599476 20.392 10.743 
$XCB 2815 311950 591725 20.128 10.611 
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Communications line utilisation summary 


SUM input output write input 
DEVICE-NAME REQUESTS bytes bytes utilisation utilisation 
$XD1 2726 301988 572887 19.486 10.272 
$XD2 2741 304185 576263 19.601 10.346 
$XD3 2725 309360 573939 19.522 10.523 
$XD4 2776 307749 584488 19.881 10.468 
$XD5 2751 304906 578993 19.692 10.370 
$XD6 2714 300696 571294 19.430 10.227 
$XD7 2789 309065 587079 19.968 10.512 
$XD8 2769 306746 582872 19.825 10.433 


21991 2444695 4627815 
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Communications line utilisation summary 


SUM 
DEVICE-NAME REQUESTS 


Loadid - SQL222 E 


169009 


output write 

bytes utilisation 
323432 11.001 
323432 
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input 
utilisation 


Communications 


LOADID 


SQL222 
SQL222 
SQL222 
SQL222 
SQL222 


Transactions 


Output per 
trans 


line summary per transactions 


input per 
trans 


100.026 
99.952 
100.110 
99.982 
100.000 
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16 VLX THROUGHPUT vs RESPONSE TIME - ET1 with TMF 
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----- PARAMETERS ~~-~-~~-----~-~--------------------------------------- 


Test Title 
Test Date 
Test Length 
Window Length 
Tx Log File 


Terminals/X25 Line 

Tx Arrival Process 

Tx Arrival Rate/X25 Line 
Tx Arrival Rate/Terminal 
Tx Inter-Arrival Time 


Test ALL;RUNOS—-16;SQL 

87-02-20 

20:02:38 - 20:22:18 (1180 sec) 
20:06:00 - 20:21:00 (900 sec) 
\DRIVER.$DMO3.RU16NO5.TLOGSUMZ 


80 # 
RANDOM 
8.500 tx/sec 
0.106 tx/sec 
9.412 sec 


Zz 
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iPS - NONStTOP/sSU 


Tx Throughput 
Tx Response Time Average 


Tx Response Time 


Tx Think 


Tx Delay 


MEASUREMENT RESULTS 


Std Dev 
Minimum 
Maximum 
Count 
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vy 


0.700 


Min Max Count Thruput 
0.540 s 27.125 s 105810 117.567 tx/s 
CumPct 
0.0 | 
0.0 | 
0.0 | 
0.0 | 
0.0 | 
6.0 .| 
0.0 | 
0.0 | 
0.1 | 
0.3 |* 
0.6 | #¥*% 
1.4 | *¥eeKe 
2.6 | FERRE ES 
A.D | HEKEHEEEEREEE EY 
BG | RR RRR RR RR RR 
OS | oR RE ER RE 
12.Q | FRRREKKKKRAKAKAEAERAKEE SEEK A EF 
167 | Ra a a a EE EE EE EEE 
20.9 [eo oi oo a OO Oo a a EE 
25.5 | RRR RRR AREER AREA EERE EKER RE KEE EER RE EE KK 
30.1 | RRR RRR AKA R EEE EER RE REE EERE EKER ERE REE EE RK EE 
BGG | RRR RK EEE EEK EEE EEE EEE ERE EERE EEA EEE KS 
BQ 5 | RRR RRR EERE EEE EERE EE EE EEE EERE EEE EERE EE 
AQ 1 | REE EE EK EEE EEE EEE EE EEE EE EE 
QB | He a RR EEE EE EE 
52.4 | RRR REE EE EEE REE EE EEE EEE EE EEE EE EES 
B63 | RRR EEE EEE EEE EEE 
59.9 | FERRER ERE EEE EERE REE EEE REESE EE 
G3. D | REE ERE ERE EEE EEE EE ES 
66 | FERRER EEE EER ERE EE KE 
GOLD | RE EE EEE 
71 | a oR RoR RRR OR Ek EE 
74.3 | FR RK EKER AK EEK EER EE KEK 
76.5 | RR RRR REAR EERE AEE 
TRL 7 | RRR REA EEE ER KK EEX 
BOG | FERRER KHER RRR KR KKK 
B25 | a RR KK 
84.2 | FREER ERE REE REE 
85.7 | HRRRR KKK EK EAS 
87.0 | HRKEKKK KK ARK 
BB.3 | t¥eRR KEK KES 
89.4 | RRR RHE EEE 
90.5 | KR 
Pas) 


Std 


1.119 s 
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* ET1 Inter-Arrivai Time Distribution #* 


Mean Std Min Max Count Thruput 
9.813 s 9.086 s 0.605 s 114.017 s 105810 117.567 tx/s 


ArrvTime Count Pct Theory 


0.000 0 0.0 0.0 | 
1.000 71 0.1 8.8 | T 
2.000 6034 5.7 8.0 | HERE ERE EEE EEE EEE T 
3.000 13832 13.1 TQ | REE EE EET EEE EEE EEE EEE EE EK 
4.000 12492 11.8 6.7 | oe oe oko i eo oe oe eo oT RE EE ERK EE 
5.000 9323 8.8 6.1 | ok a a a oR a a a oR RT RR ER EK 
6.000 7301 6.9 55 | RRR RRR R RRR EKER RET RARE 
7.000 5992 5.7 5.1 | eH RR ERE E REE RATER 

8.000 5244 5.0 4.6 | ## eRe KE HEE KET 

9.000 4742 4.5 AQ | RRR KR KE HE ET 

10.000 4061 3.8 3.9 | RRR ERE HET 

11.000 3653 3.5 3.5 |####keee RET 

12.000 3353 3.2 3.2 | *#¥#e eR REET 

13.000 2950 2.8 2.9 |##*####*T 

14.000 2772 2.6 2.7 | FRR RHET 

15.000 2442 2.3 2.4 | FREE RAT 

16.000 2179 2.1 2.2 | *****FT 

17.000 1925 1.8 2.0 | *#*¥***T 

18.000 1738 1.6 1.9 | *###**T 

19.000 1657 1.6 1.7 | #*¥**T 

20.000 1350 1.3 1.5 | *###*T 

21.000 1336 1.3 1.4 |#***T 

22.000 1148 1.1 1.3 [***T 

23.000 1035 1.0 1.2 | ***T 

24.000 983 0.9 1.1 | **T 

25.000 854 0.8 1.0 [#**T 

26.000 716 0.7 0.9 |**T 

27.000 687 0.6 0.8 |**T 

28.000 608 0.6 0.7 [|*T 

29.000 517 0.5 0.7 |*T 

30.000 454 0.4 0.6 |¥*T 

31.000 461 0.4 0.6 |*T 

32.000 432 0.4 0.5 |*T 

33.000 363 0.3 0.5 |T 

34.000 308 0.3 0.4 |T 

35.000 289 0.3 0.4 {T 

36.000 273 0.3 0.4 |T 

37.000 240 0.2 0.3 |T 

38.000 211 0.2 0.3 |T 

39.000 178 0.2 Orsi[F 

40.000 156 0.1 0.2 |T 

41.000 126 0.1 6,2 T 

42.000 136 0.1 0.2 |T 

43.000 101 0.1 0:2. (7 

44.000 127 0.4 O23 er 
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* ET1 Report (Driver System) 


~---- PARAMETERS =~S< 3233339455 s- ca nee see See saat ren sane nese seeae 


Test Title 
Test Date 
Test Length 
Window Length 
Tx Log File 


Terminals/X25 Line 

Tx Arrival Process 

Tx Arrival Rate/X25 Line 
Tx Arrival Rate/Terminal 
Tx Inter-Arrival Time 


Hou ue owe 


Test ALL;RUNO1-16;SQL 

87-02-20 

17:18:58 - 17:41:27 (1348 sec) 
17:24:00 - 17:39:00 (900 sec) 
\DRIVER.$DMO3.RU16N01.TLOGSUMZ 


80 # 
RANDOM 
7.500 tx/sec 
0.094 tx/sec 
10.667 sec 


ws 


Vbewy VI! eit 


ee 


Tx Throughput 
Tx Response Time Average 


Tx Response Time 


Tx Think 


Tx Delay 


MEASUREMENT RESULTS 


Std Dev 
Minimum 
Maximum 
Count 


Average 
Std Dev 
Minimum 
Maximum 
Count 


Average 
Std Dev 
Minimum 
Maximum 
Count 


Huot bea 


(vs 2.03) 
112.177 tx/sec 
sec 
sec 
sec 
sec 
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sec 
sec 
sec 
14.718 sec 
13879 # ( 


12.1%) 
23.8%) 
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* E—T1 Response Time Distribution #* 


Mean Std Min Max Count Thruput 
1.607 s 0.554 s 0.408 s 19.814 s 100959 112.177 tx/s 


RespTime Count Pct CumPct 


0.000 8) 0.0 0.0 | 

0.100 0 °0,0° 0:0 | 

0.200 0 0.0 0.0 | 

0.300 0 0.0 0.0 | 

0.400 0 O20 0.0 | 

0.500 8 0.0 0.0 | 

0.600 107 0.1 o.1 | 

0.700 379 0.4 0.5 |* 

0.800 1311 Fag 1.8 | #*¥#*#x 

0.900 2847 2.8 4.6 | FRR EERE KH K KX 

1.000 4416 4.4 Q.0 | FHKE KARR E KERR KEK 

1.100 6686 B.6 15.6 | ER dE ek Rk kkk Ree 
1.200 8297 8.2 23.8 | a RR RK OR AR OR RE BE ER RK 
1.300 8669 BG 32. | RR Re RRR RR EE ERROR RR ROK OR EK 
1.400 9047 QD. 41 4 | RR A RR RRR RE ER EK 
1.500 8580 B.5 4G. | FRA KAR KEKE KEE KEE EERE EER EE KR EK KEE 
1.600 7734 Ti TST S| a a OK EK 
1.700 7074 7.0 64.5 | 2 2 2 A ER EK 
1.800 6102 6.0 70.6 | # eK RR EE EEE EEE ERE RE KK RE KK 

1.900 5112 5.10 75.6 | RR RE ER ORE EE RE 

2.000 4467 4.4 BOL] | HERE ERE E EE REE 

2.100 3716 3.7 B3.7 | FREER EER KERR EE 

2.200 3088 3.1 B68 | RRR RE REE 

2.300 2580 2.6 89.4 | #HFEREEHEKS 

2.400 2085 2.1 Q1.4 | *##RRREEE® 

2.500 1729 1.7 93,1 | ##¥#eR eee 

2.600 1363 1.4 94.5 | ®#¥# kes 

2.700 1066 1.1 95.5 | #*¥#* 

2.800 882 0.9 96.4 | **** 

2.900 720 0.7 97.1 [*** 

3.000 570 0.6 97.7 |** 

3.100 485 0.5 98.2 |¥** 

3.200 349 0.3 98.5 |* 

3.300 303 0.3 98.8 |* 

3.400 237 0:2 99.1: 1s 

3.500 174 0.2 99.2 | 

3.600 150 0.1 99.4 | 

3.700 108 0.1 99.5 | 

3.800 101 0.1 99.6 | 

3.900 86 0.1 99.7 | 

4.000 81 0.1 99.8 | 

4.100 49 0.0 99.8 | 

4.200 31 0.0 99.8 | 

4.300 22 0.0 99.9 | 
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* ET1 Inter-Arrival Time Distribution #* 


Mean Std Min Max Count Thruput 
10.804 s 10.524 s 0.522 s 129.222 s 100959 112.177 tx/s 


0.000 0 0.0 0.0 | 

1.000 806 0.8 8.4 |** T 
2.000 12955 12.8 Ti 7 | RT EE EK RE EE 
3.000 10283 10.2 TO | HR A oa ER TR RR EK 
4.000 7428 7.4 6.5 | RRR RE RRE RR E ERE EE EET EEE 
5.000 6213 6.2 5.9 | RRR RK RR EERE EEE RET 
6.000 5577 5.5 5. | RRR ERE E EEK EEK EET 
7.000 5110 5.1 5.0 | eee REE ERAEAEET 
8.000 4617 4.6 45 | RRR RRR RR REE REET 
9.000 4323 4.3 4.2 | FRR ERR RR RR REAT 
10.000 3939 3.9 3.8 | #¥ RRR KKK EKT 

11.000 3524 3.5 3.5 | tek eR KR EET 

12.000 3208 3.2 3.2 |*#***##e4T 

13.000 2863 2.8 2.9 | ##RRREEERT 

14.000 2810 2.8 2.7 | HERRRRERT 

15.000 2448 2.4 2.5 | ee RR RET 

16.000 2329 2.3 2.9 | *#*eeeeT 

17.000 1978 250 2.1 | #¥#eRET 

18.000 1846 1.8 1.9 | *#****T 

19.000 1672 1.7 1.7) | e## RET 

20.000 1474 1.5 1.6 | ####T 

21.000 1407 1.4 1.5 | *#*#**T 

22.000 1302 1.3 1.3 | **?T 

23.000 1153 1.1 1.2 | ***T 

24.000 1043 1.0 1.1 | *##*T 

25.000 978 1.0 1.0 | #*#*T 

26.000 870 0.9 0.9 |**T 

27.000 823 0.8 0.9 |**T 

28.000 769 0.8 0.8 |**T 

29.000 615 0.6 0.7 |*T 
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34.000 387 0.4 0.5 |*T 

35.000 388 0.4 0.4 |T 

36.000 370 0.4 0.4 |T 

37.000 312 0.3 0.4 |T 

38.000 294 0.3 0.3 |T 

39.000 238 0.2 0.3: | T 

40.000 247 0.2 epee ab hes 

41.000 200 0.2 0.3 {T 

42.000 202 0.2 O22: | T 

43.000 187 0.2 Qi 2 

44.000 143 0.1 0.2 |T 
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* ET1 Report (Driver System) - TOPGUN PROJECT 
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----- PARAMETERS 3-237 ~~ oor nr rr nnn nn nnn rene n nna 


Test Title 
Test Date 
Test Length 
Window Length 
Tx Log File 


Terminals/X25 Line 

Tx Arrival Process 

Tx Arrival Rate/X25 Line 
Tx Arrival Rate/Terminal 
Tx Inter-Arrival Time 


Test ALL;RUNO2-16; SQL 
87-02-20 

18:04:35 - 18:24:53 
18:07:00 - 18:22:00 
\DRIVER.$DM03.RU16N02 


80 # 
RANDOM 
6.500 tx/sec 
0.081 tx/sec 
12.308 sec 


(1218 sec) 
(900 sec) 
. TLOGSUMZ 


Very Ew 


INVITEES oH 
me 


TOPGUN - RESPONSE REPORTS - 2 * 8 VLX SYSTEMS - 103 TPS - NonStop/SQ 


----- MEASUREMENT RESULTS (vs 2.03) --------------------------------- 


Tx Throughput 102.976 tx/sec 


Tx Response Time Average = 1.185 sec 
Std Dev = 0.384 sec 
Minimum = 0.382 sec 
Maximum = 4.919 sec 
Count = 92678 # 
Tx Response Time 10% = 0.800 sec ( 12.2%) 
20% = 0.900 sec ( 23.0%) 
30% = 1.000 sec ( 35.3%) 
40% = 1.050 sec ( 42.1%) 
50% = 1.150 sec ( 54.9%) 
60% = 1.200 sec ( 60.4%) 
70% = 1.350 sec ( 73.4%) 
80% = 1.500 sec ( 82.6%) 
90% = 1.700 sec ( 90.5%) 
95% = 1.950 sec ( 95.6%) 
Tx Think Average = 12.325 sec 
Std Dev = 12.338 sec 
Minimum = 0.001 sec 
Maximum = 147.891 sec 
Count = 84301 # ( 91.0%) 
Tx Delay Average = 0.667 sec 
Std Dev = Q.461 sec 
Minimum = 0.000 sec 
Maximum = 3.881 sec 


Count 


Le 
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* ET1 Response Time Distribution #* 


Mean Std Min Max Count Thruput 
1.185 s 0.384 s 0.382 s 4.919 s 92678 102.976 tx/s 


RespTime Count Pct CumPct 


0.000 0 0.0 0.0 | 

0.100 0 0.0 C.30°°4 

0.200 0 0.0 0.0 | 

0.300 0 0.0 0.0 | 

0.400 4 0.0 0.0 | 

0.500 198 0.2 0.2 | 

0.600 1109 1.2 1.4 | *#* 

0.700 3114 3.4 4.Q | #¥ Re RRR RX 

0.800 6900 7.4 12.2 | 6 RRR RE REE RE ROKK 
0.900 9962 10.7 23.0 | FERRER EEE ERER ER EAE REE ERA ER EEE HE 
1.000 11445 12.3 35.3 | FFE RRR E EERE KER EE EEE EEE EEE EE EEE KE EE EE 
1.100 12344 13.3 48.6 | #8 RE EE EE EEE EEE EE EE 
1.200 10885 11.7 60.4 [2 2 2 oR ke ee oo oe ke oe ooo ee oe oR EE 
1.300 8489 9.2 69.5 | eR KERR ee RE EE EE 
1.400 6718 7.2 76.8 | FERRER E EERE EE EEE EE EEE S 

1.500 5340 5.8 82.6 [ REE EEE EEE EE EEE 

1.600 4208 4.5 87.1 |[*#*##ee ee REESE 

1.700 3115 3.4 90.5 | ## FRR EERE 

1.800 2323 2.5 93.0 | #¥*¥#eee% 

1.900 1733 1.9 94.9 | ¥#¥¥** 

2.000 1299 1.4 96.2 |###*# 

2.100 931 1.0 97.2 |*** 

2.200 718 0.8 98.0 |** 

2.300 475 0.5 98.5 |* 

2.400 370 0.4 98.9 |* 

2.500 278 0.3 99.2 | 

2.600 166 0.2 99.4 | 

2.700 133 0.1 99.5 | 

2.800 107 0.1 99.7 | 

2.900 80 0.1 99.7 | 

3.000 55 0.1 99.8 | 

3.100 47 0.1 99.9 | 

3.200 32 0.0 99.9 | 

3.300 25 0.0 99.9 | 

3.400 16 0.0 99.9 | 

3.500 14 0.0 100.0 | 

3.600 12 0.0 100.0 | 

3.700 5 0.0 100.0 | 

3.800 6 6.010020. || 

3.900 4 0.0 100.0 | 

4.000 4 0.0 100.0 | 

4.100 2 0.0 100.0 | 

4.200 2 0.0 100.0 | 

4.300 3 0.0 100.0 | 

4.400 6) 0.0 166..0° || 
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* ET1 Inter-Arrival Time Distribution #* 


Mean Sta Min Max Count Tnhruput 
12.396 s 12.280 s 0.442 s 149.103 s 92678 102.976 tx/s 


0.000 0 0.0 0.0 
1.000 2480 2.7 7.7) | HERR RRR ES T 
2.000 10909 11.8 Ti | a ee ee ER RR TE ERE ERE EEE 
3.000 6528 7.0 6G | KERR R EEE EERE EERE EET EE 
4.000 5758 6.2 G1 | RRR REE ER EERE EEE KT 
5.000 5269 D7 5G | RRR RRR EE EEE EEE KE EET 
6.000 4790 5.2 5.2 | HERR RRR R EEE REAR ET 
7.000 4255 4.6 AQ | FRR ERR HEHE EERE ET 
8.000 4130 4.5 AG | HERR EE RE ER EET 
9.000 3736 4.0 4.1 | eR RR ER EER REET 
10.000 3572 3.9 3.7 | FRR R ERE EER EET 

11.000 3159 3.4 3.5 | eee RE RAH EH ET 

12.000 3026 3.3 3.2 | FRR RR RRR ERT 

13.000 2735 3.0 2.9 | H#RRERRREET 

14.000 2481 27 2.7 | *#* eee ke KET 

15.000 2288 2.5 2.5 |****kkexT 

16.000 2210 2.4 2.3 | *###ee KET 

17.000 1926 2.1 2.1 | ##*eREXT 

18.000 1853 2.0 2.0 | #¥** HET 

19.000 1754 1.9 1.8 | ##***T 

20.000 1518 1.6 1.7 | ###*e*T 

21.000 1451 1.6 1.5 | *#*##*#*T 

22.000 1303 1.4 1.4 | ###*T 

23.000 1196 1.3 1.3 | *#***T 

24.000 1098 1.2 1.2 [| **#*T 

25.000 1073 1.2 1.1 | ##*T 

26.000 893 1.0 1.0 | ¥***T 

27.000 930 1.0 1.0 | **T 

28.000 774 0.8 0.9 |**T 

29.000 784 0.8 0.8 | *#*T 

30.000 677 0.7 0.7 |**T 

31.000 640 O27 0.7 [*T 

32.000 630 0.7 0.6 |*T 

33.000 537 0.6 0.6 |*T 

34.000 512 0.6 0.5 |*T 

35.000 465 0.5 0.5 |*T 

36.000 435 0.5 0.5 |*T 

37.000 373 0.4 0.4 |*T 

38.000 322 0.3 ou a Se 

39.000 305 0.3 0.4 |T 

40.000 318 0.3 623° tT 

41.000 299 0.3 0.3 |T 

42.000 274 0.3 0.3: [7 

43.000 241 0.3 0.3 |T 

44.000 218 0.2 O22: 7. 
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* ET1 Report (Driver System) - TOPGUN PROJECT * 
----- PARAMETERS --- 973 n rrr nn rn ne ren nn nen 
Test Title Test ALL;RUNO3-16;SQL 


Test Date 
Test Length 
Window Length 
Tx Log File 


Terminals/X25 Line 

Tx Arrival Process 

Tx Arrival Rate/X25 Line 
Tx Arrival Rate/Terminal 
Tx Inter-Arrival Time 


87-02-20 

18:43:04 - 19:15:57 (1972 sec) 
18:58:00 - 19:13:00 (900 sec) 

\DRIVER.$DMO3.RU16NO03.TLOGSUMZ 


80 # 
RANDOM 
5.500 tx/sec 
0.069 tx/sec 
14.545 sec 


Z 


* 


G3 VLX SYSIEMS — 


87 TPS - NonStop/sQ 


Tx Throughput 
Tx Response Time 


Tx Response Time 


Tx Think 


Tx Delay 


MEASUREMENT RESULTS 


Average 
Std Dev 
Minimum 
Maximum 
Count 


Average 
Std Dev 
Minimum 
Maximum 
Count 


Average 
Std Dev 
Minimum 
Maximum 
Count 


Un HE WW ad nb won 


tt uo wouwou 


(vs 2 


87 


.03) 


.713 
sec 
sec 
sec 
sec 


tx/sec 


LON PON LON LON ON EON ON FN NO 


( 


12.0%) 
26.4%) 
35.9%) 
45.2%) 
53.6%) 
61.4%) 
74.3%) 
83.2%) 
90.7%) 
95.0%) 


93.8%) 


6.2%) 
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Mean 
0.934 s 


PHPBHWADWWWWWAWWNNNNNNNNNDE —]]=]=]]]-]==200000 00000 


8635 


14031 


—-- -0O0-$-ONON--0001 


Std 


0.364 s 


Pct 
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Min Max Count 
0.266 s 14.351 s 78942 


CumPct 


Thruput 
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* ET1 Inter-Arrival Time Distribution * 


Mean Std Min Max Count Thruput 
14.586 s 14.492 s 0.316 s 176.217 s 78942 87.713 tx/s 


0.000 0 0.0 0.0 
1.000 3517 4.5 6.6 | RFE RR ERR A EER EEE EEE KEE T 
2.000 6471 8.2 G2 | FREE EE A EEE BE KAA REE KER EKER EET RE RR ER EK EE 
3.000 4608 5.8 BB | a a oe a ER EE EET 
4.000 4274 5.4 5A | RRR ERE ERE AKER RAKE EEE KET 
5.000 4026 5.1 BO | a oo oo EEE EE EE EET 
6.000 3750 4.8 47 | RE EK EEE EET 
7.000 3458 4,4 Ai | EE ET 

8 000 3152 4.0 4.1 [AR oe oo ok ooo ET 

9 ooo 3008 3.8 3.8  Nededediedadadadadedadelededadededadadam t 
10.6000 2800 3.5 3.6 | RR RR RR OK ERT 

11.000 2683 3.4 3.3 | RRR RRR RK EEE EEE EET 

12.000 2469 3.1 Bl | RR RE RR ET 

13.000 2311 2.9 2.9 | RRR RR REE RET 

14.000 2192 2.8 2.7 | HR RR ET 

15.000 1950 2.5 2.5 | RRR EHR RRR ERT 

16.000 1857 2.4 2.4 | #REKEEEEEEET 

17.000 1762 2.2 2.2 | HRRRRRREEET 

18.000 1577 2.0 2.1 | RHR RAKE EET 

19.000 1622 2.1 1.9 | FERRER ET 

20.000 1401 1.8 1,9 | ## eee AET 

21.000 1377 1.7 1.7 | *# eee RET 

22.000 1298 1.6 1.6 | *#¥*¥ eR RT 

23.000 1180 1.5 1,5 | ## eee RET 

24.000 1056 1.3 1.4 | *¥*****T 

25.000 1047 1.3 1.39 | #*¥*#***T 

26.000 927 1.2 1.2 | ##* eT 

27.000 846 1.1 1.1 | #¥#**T 

28.000 855 1.1 1.0 |****T 

29.000 775 1.0 1.0 | ****T 

30.000 743 0.9 0.9 | ****T 

31.000 649 0.8 0.8 | **#*T 

32.000 660 0.8 0.8 | ***T 

33.000 561 0.7 0.7 |**#*T 

34.000 556 0.7 0.7 |**#*T 

35.000 530 0.7 0.6 |**T 

36.000 420 0.5 0.6 |**T 

37.000 469 0.6 0.6 |**T 

38.000 432 0.5 0.5 |*4#T 

39.000 346 0.4 0.5 |**T 

40.000 356 0.5 0.5 |#T 

41.000 316 0.4 0.4 |#T 

42.000 310 0.4 0.4 |*T 

43.000 262 0.3 0.4 {[*T 

44.000 256 0.3 0.3 [*T 
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* ET1 Report (Driver System) 


----- PARAMETERS ----------------------~------------------------------- 


Test Title 
Test Date 
Test Length 
Window Length 
Tx Log File 


Terminals/X25 Line 

Tx Arrival Process 

Tx Arrival Rate/X25 Line 
Tx Arrival Rate/Terminal 
Tx Inter-Arrival Time 


nau wou 


Test ALL;RUNO4-16;SQL 

87-02-20 

19:33:43 - 19:51:33 (1070 sec) 
19:35:00 - 19:50:00 (900 sec) 

\DRIVER.$DMO3.RU16ENO04. TLOGSUMZ 


80 # 
RANDOM 
4.500 tx/sec 
0.056 tx/sec 
17.778 sec 


ee 


Tx Throughput 
Tx Response Time Average 


Tx Response Time 


Tx Think 


Tx Delay 


MEASUREMENT RESULTS 


Std Dev 
Minimum 
Maximum 
Count 


10% 
20% 
30% 
40% 
50% 
60% 
70% 
80% 
90% 
95% 


Average 
Std Dev 
Minimum 
Max imum 
Count 


Average 
Std Dev 
Minimum 
Max imum 
Count 


Huu tout ue wou u 


(vs 2.03) 


sec 
sec 
sec 
sec 


tx/sec 


LO LO LON FO 
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95 


. 2%) 
5%) 
4%) 
5%) 
. 8%) 
. 6%) 
1%) 
9%) 
. 3%) 
7%) 


.5%) 


5%) 
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fT 


* ET1 Response Time Distribution * 


Mean Std Min Max Count Thruput 
0.797 s 0.226 s 0.262 s 3.326 s 64900 72.111 tx/s 


0.000 0 0.0 0.0 | 

0.100 0 0.0 0.0 | 

0.200 0 0.0 0,0-4 

0.300 16 0.0 0.0 | 

0.400 413 0.6 0.7 |* 

0.500 2841 4.4 5.0 | tee keer 

0.600 7871 12.1 17.2 | BRR RR RR RE REE RK 
0.700 11850 18.3 35.4 | BRR RRR ER EEE EEK EEE EERE EE KEKE E 
0.800 14542 22.4 57.8 | A Ae oe oe oe a oe oe ee EEE EE EEE EEE EE EE RE 
0.900 11232 17.30) 75.1 | BRERA EERE EEE EEE EEE EAE EEE 
1.000 6712 10.3 85.5 |e 2 oR oo RK OR 
1.100 3781 5.8 91.3 | ##¥e eee K KH 

1.200 2155 3.3 94.6 | *##*%* 

1.300 1307 2.0 96.6 |*** 

1.400 936 1.4 98.1 |** 

1.500 516 0.8 98.9 |* 

1.6006 284 0.4 99.3 | 

1.700 162 0.2 99.6 | 

1.800 88 0.1 99.7 | 

1.900 48 0.1 99.8 | 

2.000 38 0.1 99.8 | 

2.100 20 0.0 99.9 | 

2.200 21 0.0 99.9 | 

2.300 22 0.0 99.9 | 

2.400 14 0.0 100.0 | 

2.500 8 0.0 100.0 | 

2.600 2 0.0 100.0 | 

2.700 5 0.0 100.0 | 

2.800 4 0.0 100.0 | 

2.900 5 0.0 100.0 | 

3.000 3 0.0 100.0 | 

3.100 1 0.0 100.0 | 

3.200 1 8;0°.100.0° | 

3.300 0 0.0 100.0 | 

3.400 2 0.0 100.0 | 
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* ET1 Inter-Arrival Time Distribution * 


Mean Std Min Max Count Thruput 
17.813 s 17.711 Ss 0.350 s 215.374 s 64900 72.111 tx/s 


0.000 0 0.0 0.0 
1.000 3064 4.7 BS | EK EE T 
2.000 3824 5.9 2 | RO A RK OR ER TE 
3.000 3212 4.9 A | RR A OE EE ET 
4.000 3035 4.7 4.6 [2 AE a ae ae Se ke kee ke ke i ke RT 
5.000 2783 4.3 Qi | EE EET 
6.000 2708 4.2 Qi | RR EE OK EK KT 
7.000 2642 4.1 3.Q | RRR KRHA KERR EERE EKER EHTS 
8.000 2308 3.6 3.7 |e A ee ee RE EE ET 
9.000 2164 3.3 3.5 | RRR ERR EERE ERR RRR T 
10.000 1982 3.1 3.Q | HERR EERE RE RR REE REE OT 

171.000 2039 3.1 Bll | RRR RRR ERE RR REE EEE RET 

12.000 1958 3.0 2.Q | RRR REE RE EEK KEK EET 

13.000 1805 2.8 2B | RRR RR RR RE RR EE EET 

14.000 1732 2.7 2.6 | REE RRR RE EEE EEE EET 

15.000 1561 2.4 2.5 [eR ER EE EET 

16.000 1445 2.2 2.4 | FRR EEE ERR REE T 

17.000 1509 2.3 2.2 | RRR RE REE ET 

18.000 1341 2.1 2.1 | RRR RRR EERE REET 

19.000 1299 (2:0, 2,0. | ***teeeeseeeeT 

20.000 1261 129 1.9 | #RRKKER RRA HET 

21.000 1140 1.8 1,8 | #R REE REE RT 

22.000 1055 1.6 1.7) | RR RRR RET 

23.000 1152 1.8 1.6 | ##¥e eee RE TH 

24.000 989 1.5 1.5 | ##ee eee REET 

25.000 864 Ted 1,4 | #*ee eRe EET 

26.000 885 1.4 1.3 | #¥ eR RRR EET 

27.000 919 1.4 1.9 | #¥# eee ETS 

28.000 776 1.2 1.2 | eR RR RET 

29.000 761 1.2 1.10 | eee ET 

30.000 714 9 Dene 1.10 | eee RREET 

31.000 652 1.0 1.0 | *###***T 

32.000 585 0.9 1.0 | *#*##*T 

33.000 584 0.9 0.9 | #**¥**T 

34.000 529 0.8 0.9 | #¥#¥*T 

35.000 513 0.8 0.9 | ##**#*T 

36.000 507 0.8 0.8 | ##*#T 

37.000 469 0.7 O.7 | *#***T 

38.000 447 0.7 0,7 | ###*T 

39.000 442 0.7 0.6 | ****T 

40.000 367 0.6 0.6 | ***T 

41.000 371 0.6 0.6 | #**T 

42.000 345 0.5 0.5 |***T 

43.000 353 0.5 O.5 |¥***T 

44.000 270 0.4 0.5 |**T 


Lif? 


.000 
.000 
.000 
.000 
.000 
.000 
.000 
-000 
.000 
-000 
.000 
-000 
.000 
-000 
.000 
.000 
.000 
.000 
.000 
. 600 
.000 
.000 
.000 
.000 
.000 
.000 
.000 
.-000 
.000 
.000 
.000 
.-000 
.000 
.000 
.000 
.-000 
.000 
.000 
.000 
.000 
.000 
.000 
-000 
.000 
.000 
.000 
-000 
000 
.000 
.000 
.000 
.000 
.000 
. 000 


OODDCDMDCMDDCCOCO0O0O00 HH HOH HH Bp BH mews eB Bw HNHNNNNNNWWANWWAWAWADAA BOO 


QOoroqoqooocooco0oocoo0oc0oo0ooco0co0o00coco0occecdceceoocoo0o0ooo0oo0co0ococoo0ocoo0o0oo00ed0do0o0de000o000o 


MOOV CDODVCWVODCVOOO a www w ws sw srw ns st HB A NNNNNNAHNNNWAAWWAOWAARA DLO 


oOoo0o0oocoocooocoocoocooocoocococooacecececeeoocececocoo0o0ocococoooo0coococoecoccoeood°o°o0c0dcdoeo0000 


twee 


wait 


a Ae ee ENR ime WIND 


uw 


Vike sy ITs) LID 


i 


a 


ro 


- NUD LUPs OW 


.000 


Ann 


ou wu 


.000 
.000 
.000 
.000 
-000 
.000 
.000 
.000 
.000 
.-000 
.000 
-000 
.000 
.000 
.000 
. 000 
.000 
.000 
.000 
.000 
.000 
.000 
.000 
.000 
.000 
000 
000 
.000 
.000 
.000 
.000 
.000 
. 000 
.000 
.000 
.000 
.000 
-000 
.000 
-000 
.000 
.000 
.000 
. 000 
.000 
-000 
.000 
.000 
.000 
. 000 
.000 
.000 


OONONONONON HCONDPOANDNANWAHAONOOMDAKROBRONOWOUADOOWOMIAA$ 


oqooooeooocodooeooc0ododoo0o0°0d0ae0ce0c°c°eoe0c0cooooco0oocae0ece0c0e0c cc 0ce0coe0c0co0co0ce0o000d0 
oococooeooonooocoocdnodoooodcooo0oc0e0ece0c9ce0ece0ce0c e0Cce0o0o0 000 000000 00CT0CCCO0C0 0000 


ooo0oooo0dndocodooodoodoococ0o0oococoocoecoeocoocoocooooece0ce0ce0ce0ce0ce0co c0ceCcCeceoecoeco000o0 
oooooocooaoqoqcoqc0occoococ°ooco0co0coec—0og0ce0c0cCec0ce0ce C0 cece 0ce0c 0ece0c—0cC0cC0cC0C0C CoO CMCC OoO0o0co0o0 03O0 


TOPGUN - RESPONSE REPORTS - 


2 * 8 VLX SYSTEMS - 


72 TPS - NonStop/sqQ 


oooooo0ooooc0co°dc0co0coceocoo0co0oc0c0c00c0e90c9e0e00000o0qcaq0 Ce Q0e 0000 0000000000 070000 


NNODOOONOOCOOONOoOoC0O0QC 00 0O0 0EeNnONO COCO C0 ceo0oooooNnog00o0co0ce°00°00oo0000d 


qooqgoqgo0qgqgqgceqoqoqcoqe0qceCc0ce0qo0o0cC0o0cCoao0ce0e00eCcC0oCcC0cCco0coc0o0oooc0c0o0o0000000cooeoo00o0o00o00 
ooqgqgqg 00g qg0q0qg 0 q0qe0 000 000 00000000 00 00 00 G0 C0 "e000 C0 CSCT0C0Ceooo0000 
ooo0oo0ooo0ooocooo0coo0cococ0co0c00c00cege00ce0c0e0c0 e000 00 00 00 0 00 000 00 000 0000 0 
MOTMOMDHADO- NNT MORDHADOKNMTMNORDDOKNMNTAMWORDADDOKNMOTMWORDONOOK- ANTM O 
Be eee ee eG eee ne eee ee ee ee ere 2 oe Se ee 


44 


| 070 O70 Zz 000°91z 
| o°O OO O o00°Stz 
| oO 6©60°0.—l*O 000" rLz 
| oO OO. O o00"eiz 
| oO ‘OO 6 000°z1z 
| o7O o7OoO 1 000°11z 
| o°O o7O. O 000'o1z 
| o'O O70 O 000°60z 
j; o°O 0°O 6 000° 802 
| 070 6©60'00—C 0 000° 202 


DS/GOSUON - Sdl ZL - SWHLSAS X1A 8 * Z - SLYOdSH SSNOdSSY — NNDdOL 


@- Enscribe 


O- NonStop/SQL 


Response time 
in seconds - 
90% 


8VLX 


Response time vs. throughput - ET1 with TMF 


40 
Transactions per second on 8 VLXs 


* For 90% of transactions 


Sd.L [9 - ndysno.syy, 


SINHLSAS X’TA 8 «TI 


TOS/dojsuon 


----- PARAMETERS ~---~~----------------------------------------------- 


Test Title 
Test Date 
Test Length 
Window Length 
Tx Log File 


Test 07; TPS 80/15 

87-02-11 

23:11:13 - 23:23:21 (727 sec) 
23:15:00 - 23:22:00 (420 sec) 
\DRIVER.$DM0O1.TXGEN.TXLOGSUM 


Terminals/X25 Line 

Tx Arrival Process 

Tx Arrival Rate/X25 Line 
Tx Arrival Rate/Terminal 
Tx Inter-Arrival Time 


80 # 
RANDOM 
10.000 tx/sec 
0.125 tx/sec 
8.000 sec 
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----- MEASUREMENT RESULTS (vs 2.02) --------------------------------- 


Tx Throughput 61.643 tx/sec 


Tx Response Time Average = 1.940 sec 
Std Dev = 0.800 sec 
Minimum = 0.404 sec 
Maximum = 9.464 sec 
Count = 25890 # 
Tx Response Time 10% = 1.150 sec ( 10.8%) 
20% = 1.350 sec ( 22.5%) 
30% = 1.500 sec ( 32.5%) 
40% = 1.650 sec ( 42.3%) 
50% = 1.800 sec ( 51.7%) 
60% = 1.950 sec ( 60.2%) 
70% = 2.200 sec ( 71.5%) 
80% = 2.450 sec ( 80.0%) 
90% = 2.950 sec ( 90.1%) 
95% = 3.450 sec ( 95.1%) 
Tx Think Average = 7.991 sec 
Std Dev = 8.062 sec 
Minimum = 0.001 sec 
Maximum = 68.586 sec 
Count = 20284 # ( 78.3%) 
Tx Delay Average = 1.169 sec 
Std Dev = 0.864 sec 
Minimum = 0.000 sec 
Maximum = 7.626 sec 
Count = 5606 # ( 21.7%) 


ee ree me cee nee oe tn a ee ee ee a ee we oe oe ee ee ee ee ee a a ee a en ae ae a a ee ee ee 


~\ 


Mean 


1.940 s 


Std 


0.800 s 


Pet 


ET1 Response Time Distribution #* 


Min Max Count Thruput 
0.404 s 9.464 s 25890 61.643 tx/s 
CumPct 
0.0 | 
0.0 | 
0.0 | 
0.0 | 
0.0 | 
0.0 | 
0.1 | 
0.07 1F 
0.9 | *¥*% 
2.3 | ¥¥ RRR KH S 
4.7 | RRR KERR ERK KK KK 
BLS | RRR RRR RRR EKER ERE EE 
VQ | A EK KE KK 
QQ | RE EE ER RR RE OE EE 
25.8 fo 2 eo a oR RR RRR RR KR 
BQ S| RE KE 
BOL 1 | EK ERR ER EEK KE EE EEK 
QS S| EEE EEE EE EEE EE EE 
BL 7 | eR EE REE EEE EEE EE EK EE 
7 S| a RE oe EE RE EE EE KE 
G2. 7 | FR a HR RR EE EE 
G74 | RRR E EERE EEE EEE EE EEE 
71S | ea RE EE EK EE 
VAMC LELESSE LILLE SS SS FE FS 
78.6 | FRR EERE KEKE REE EEE EEE 
B14 | FREER ERR EE EEE EHS 
83.9 | FHF RR EEE EAE KEES 
B6.O0 | FH REE EH EH ee 
87.8 | eee EEES 
89.4 | KKRRREEKES 
90.7 | eee ER HEES 
91.9 | *#*¥***e* 
93.0 | *#**** 
94.0 |****** 
94.8 | ##¥#¥* 
95.4 | *#** 
96.0 |*** 
96.4 |** 
96.8 | ** 
97.2 |** 
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TOPGUN - RESPONSE REPORTS - 


1 


* 8 VLX SYSTEMS - 


61 


TPS - NonStop/sS@Q 


SAL 09 - yndysnoryy, 


SINHLSAS XTA 8 «I 


TOS/doiguony 


TOPGUN - 


RESPONSE REPORTS 


i Report (Driver System) 


~---- PARAMETERS ~------~---------------------------------------------- 


Test Title 
Test Date 
Test Length 
Window Length 
Tx Log File 


Terminals/X25 Line 

Tx Arrival Process 

Tx Arrival Rate/X25 Line 
Tx Arrival Rate/Terminal 
Tx Inter-Arrival Time 


Test 05; 64 TPS 

87-02-11 

21:16:12 - 21:31:40 (927 sec) 
21:20:00 - 21:27:00 (420 sec) 
\DRIVER.$DM0O1.TXGEN.TXLOGSUM 


80 # 
RANDOM 
8.000 tx/sec 
0.100 tx/sec 
10.000 sec 


1 


* 8 VLX SYSTEMS 


60 TPS 


NonStap/SQ 


Tx Throughput 
Tx Response Time Average 


Tx Response Time 


Tx Think 


Tx Delay 


MEASUREMENT RESULTS 


Std Dev 
Minimum 
Maximum 
Count 


10% 
20% 
30% 
40% 
50% 
60% 
70% 
80% 
90% 
95% 


Average 
Std Deve 
Minimum 
Max imum 
Count 


Average . 
Std Dev. 


Minimum 
Maximum 
Count 


Te 


(vs 2.02) 
59.795 tx/sec 
sec 
sec 
sec 
sec 


H 
@ 
oO 
LON LON LON LON ON ON LN FN LN 


10.2%) 
22.4%) 
31.8%) 
41.7%) 
50.9%) 
62.7%) 
72.2%) 
81.5%) 
90.6%) 
95.4%) 


85.6%) 


TOPGUN - RESPONSE REPORTS - 


1 


* 8 VLX SYSTEMS - 


60 TPS ~ NonStop/SQ 


TOPGUN —- RESPONSE REPORTS - 1 * 8 VLX SYSTEMS - 60 TPS - NonStop/SQ 


* ET1 Response Time Distribution * 


Mean Std Min Max Count Thruput 
1.525 s 0.650 s 0.486 s 13.675 s 25114 59.795 tx/s 


mm ee ee 


0.000 0 0.0 0.0 | 

0.100 Oo 0.0 0.0 | 

0.200 0 0.0 0.0 | 

0.300 0 0.0 0.0 | 

0.400 0 0.0 0.0 | 

0.500 3 0.0 0.0 | 

0.600 49 0.2 OG 2.4 

0.700 226 0.9 1.1 | *** 

Q.800 563 2.2 3.3 | ## ek RRR KK 

0.900 1001 4.0 7.3 | RRR ROR ER KE 

1.000 1657 6.6 13.9 | eR EEE 

1.100 2118 BLA 22.4 | ER RR ROR ROR RRR KK 
1.200 2371 DL 1 | RR a ORR ORE 
1.300 2473 DB 1 7 | a a ke oo oe oo RRR OR RRR RK OK KK 
1.400 2333 9.3 50.93 | oA i a a a RRR 
1.500 2019 B.0 SOLO | HR RR ER RRR EEE EE KEK 
1.600 1871 7.5 66.4 | # RR KEE EKER EERE ER RK OK KKK 
1.700 1447 5.8 72,2 | RRR RRR EERE EE REE EERE KEK 

1.800 1319 5.3 77.4 | FRR EERE ERK EE 

1.900 1008 4.0 S15 | RRR RRR ERR E EEK REE E 

2.000 793 3.2 B4.6 | F¥ eR E KH HEHE 

2.100 693 2.8 87.4 |*#eKeeeHKES 

2.200 553 2.2 89.6 | ¥## eee K EX 

2.300 492 2.0 91.5 | ¥*##¥*e4e% 

2.400 356 1.4 93.0 | ¥*¥*¥**¥* 

2.500 281 1.1 94.1 | ¥#¥x 

2.600 218 0.9 94.9 |¥*** 

2.700 188 0.7 95.7 |*** 

2.800 179 0.7 96.4 |**# 

2.900 135 0.5 96.9 |** 

3.000 91 0.4 97.3 |* 

3.100 88 0.4 97.7 |* 

3.200 72 0.3 97.9 |* 

3.300 74 0.3 98.2 |* 

3.400 54 0.2 98.5 | 

3.500 44 0.2 98.6 | 

3.600 43 0.2 98.8 | 

3.700 31 0.1 98.9 | 

3.800 23 0.1 99.0 | 

3.900 32 O23. ° S971 || 

4.000 16 O.1 99.2 | 

4.100 22 O.t 99,3°>)1 

4.200 17 0.1 99.4 | 

4.300 21 0.1 99.4 | 

4.400 13 0.1 99.5 | 
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TOPGUN - RESPONSE REPORTS - 


1 


* 8 VLX SYSTEMS - 


60 TPS - NonStop/SQ 


Sd.L 6§ - Indysnomyy, 


SINALSAS XTA 8 xT 


TOS/doiguoy 


1% 


TOPGUN - RESPONSE REPORTS - 


* ET1 Report (Driver System) 


Ce a eiieaitiodiond 


~---- PARAMETERS -~------------------~----------- 7-7-2722 2-H 


Test Title 
Test Date 
Test Length 
Window Length 
Tx Log File 


Terminals/X25 Line 

Tx Arrival Process 

Tx Arrival Rate/X25 Line 
Tx Arrival Rate/Terminal 
Tx Inter-Arrival Time 


Test 04; 60 TPS 

87-02-11 

22:27:59 - 22:40:29 (749 sec) 
22:32:00 - 22:39:00 (420 sec) 
\DRIVER .$DMO1.TXGEN.TXLOGSUM 


80 # 
RANDOM 
7.500 tx/sec 
0.094 tx/sec 
10.667 sec 


1 


* 8 VLX SYSTEMS -— 


59 TPS - NonStop/SQ 


Tx Throughput 
Tx Response Time Average 


Tx Response Time 


Tx Think 


Tx Delay 


MEASUREMENT RESULTS 


Std Dev 
Minimum 
Maximum 
Count 


10% 
20% 
30% 
40% 
50% 
60% 
70% 
80% 
90% 
95% 


Average 
Std Dev 
Minimum 
Maximum 
Count 


Average 
Std Dev 
Minimum 
Maximum 
Count 


uk db wb bb aw 


(vs 2.02) 


tx/sec 
sec 
sec 
sec 
sec 


(1) 

oO 

a 
NNN LON ON NN NON 


12.0%) 
21.0%) 
31.5%) 
42.4%) 
52.8%) 
61.9%) 
72.7%) 
80.5%) 
90.7%) 
95.2%) 


87.4%) 


12.6%) 


TOPGUN - RESPONSE REPORTS - 


1 


* 8 VLX SYSTEMS - 


59 TPS - NonStop/sQ 


Std 


TOPGUN —- RESPONSE REPORTS - 


ET1 Response Time Distribution * 
Min Max Count Thruput 
0.384 s 6.658 s 24582 58.529 tx/s 
CumPct 
0.0 | 
0.0 | 
0.0 | 
0.0 | 
0.0 | 
0.0 | 
0.5 |* 
2.1 | ¥eREX 
5G | RRR RR EERE ER EE 
12.0 | RRR ER REE EEE KE REE EE EEE EF 
21.0 | RRR EE EE ER EE EO REE EK EK 
Ba | a a RR RR RR OR OK 
ED. | A RRR ROR RO EE EK 
BD | a a a A KR RIC TOR ER 
61. | RRR KR EE RARE EEE EE EER KR EK KK 
GQ 5 | RRR RARER REESE AE ERE EE ERE KE EEE 
VA WOR LELL LLL LLCS LLL ES ee 
BOS | RR RR RE Ke 
84.5 oe cRokeediesTodlataaladiadaitededadied 
B7.3 | **#*e kee EX 
89.8 | RR RE Ee 
91.6 | #¥ eR H 
93.0 | Fee aE 
94.2 | Fe * 
95.2 |*** 
95.8 |** 
96.4 |#** 
96.9 |* 
97.3 |* 
97.6 |* 
98.0 |* 
98.2 | 
98.4 | 
98.7 |* 
98.9 | 
99.1 | 
99.2 | 
99.4 | 
99.4 | 
99.5 | 
99.6 | 
99.6 | 
99.7 | 
99.7 | 
99.7 | 
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TOPGUN - RESPONSE REPORTS - 
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* 8 VLX SYSTEMS - 


59 TPS - NonStop/SQ@ 


Sd.L 9S - ndysnosyy, 


SINHISAS X'TA 8 «I 


TOS/doiguon 


i 


TOPGUN —- RESPONSE REPORTS - 1 * 8 VLX SYSTEMS - 56 TPS - NonStop/SQ 


----- PARAMETERS ------~---~~------------------------------------------ 


Test Title 
Test Date 
Test Length 
Window Length 
Tx Log File 


Terminals/X25 Line 

Tx Arrival Process 

Tx Arrival Rate/X25 Line 
Tx Arrival Rate/Terminal 
Tx Inter-Arrival Time 


Test 03; 56 TPS 

87-02-11 

20:32:34 - 20:46:15 (820 sec) 
20:36:00 - 20:43:00 (420 sec) 
\DRIVER.$DMO1.TXGEN.TXLOGSUM 


80 # 
RANDOM 
7.000 tx/sec 
0.088 tx/sec 
11.429 sec 


TOPGUN —- RESPONSE REPORTS - 1 * 8 VLX SYSTEMS - 56 TPS - NonStop/SQ 


----- MEASUREMENT RESULTS (vs 2.02) -----------~-------------------~-- 


~~ 


Tx Throughput 55.588 tx/sec 


Tx Response Time Average = 1.150 sec 
Std Dev = 0.437 sec 
Minimum = 0.381 sec 
Maximum = 5.026 sec 
Count = 23347 # 
Tx Response Time 10% = 0.750 sec ( 10.6%) 
20% = 0.850 sec ( 21.4%) 
30% = 0.950 sec ( 35.1%) 
40% = 1.000 sec ( 42.1%) 
50% = 1.100 sec ( 55.4%) 
60% = 1.150 sec ( 61.5%) 
70% = 1.250 sec ( 71.5%) 
BO% = 1.400 sec ( 81.4%) 
90% = 1.650 sec ( 90.4%) 
95% = 1.950 sec ( 95.1%) 
Tx Think Average = 11.452 sec 
Std Dev = 11.448 sec 
Minimum = Q.001 sec 
Maximum = 99.531 sec 
Count = 21043 # (€ 90.1%) 
Tx Delay Average = 0.657 sec 
Std Dev = 0.488 sec 
Minimum = 0.000 sec 
Maximum = 4.555 sec 
Count = 2304 # € 9.9%) 


yu 


TOPGUN - RESPONSE REPORTS - 1 * 8 VLX SYSTEMS - 56 TPS ~- NonStop/SQ 


eee me arte me me me eee ee ee ee ee ee ee re me ee ae te we ee re re ee we ee ee ee ee ee ee ae ee ae ae ae a a a ee ee 


Mean Std Min Max Count Thruput 


RespTime Count Pct CumPct 


0.000 0 0.0 0.0 | 

0.100 8) 0.0 0.0 | 

0.200 0 0.0 0.0 | 

0.300 0 0.0 0.0 | 

0.400 3 0.0 0.0 | 

0.500 63 0.3 0.3 | 

0.600 357 1.5 1.8 |*#*** 

0.700 1152 4.9 6.7 | HERR EERE REE 

0.800 2039 B.7 15.5 | RRR ERE RRR AEE EERE ERE SEEK E E 
0.900 2931 12.6 28.0 | E#RRERERR EERE HERRERA EERE EE EERE EE EEE 
1.000 3278 14.0 42.1 | FERRER RRR RHEE EEE EER ERE EEE ER EEE EEE EEE EEE EE 
1.100 3117 138.4 55.4 | eRe EERE EEE EEE EEE EEE EEE EE EE EE EEE EEE 
1.200 2702 11.6 67.0 | ##R RRR E EH EE HEE EEK EEE EEE EEE EEE 
1.300 1923 8.2 75.2 [ EERE ERE REE EEE EE EEE EEE 
1.400 1447 6.2 B14 | HRREREEEERERERE REE 

1.500 993 4.3 85.7 |#####eeeeeEe 

1.600 784 3.4 89.0 | #*¥## eee 44% 

1.700 569 2.4 91.5 | *¥#*KKH 

1.800 435 1.9 93.3 |***## 

1.900 280 1.2 94.5 |*** 

2.000 224 1.0 95.5 |#*# 

2.100 190 0.8 96.3 |** 

2.200 159 Q.7 97.0 |** 

2.300 124 0.5 97.5 |* 

2.400 99 0.4 98.0 |* 

2.500 85 0.4 98.3 |* 

2.600 66 0.3 98.6 | 

2.700 48 0.2 98.8 | 

2.800 37 0.2 99.0 | 

2.900 29 0.1 99.1 | 

3.000 30 0.1 99.2 | 

3.100 25 0.1 99.3 | 

3.200 18 0.1 99.4 | 

3.300 15 0.1 99.5 | 

3.400 21 0.1 99.6 | 

3.500 13 0.1 99.6 | 

3.600 11 0.0 99.7 | 

3.700 12 0.1 99.7 | 

3.800 11 0.0 99.8 | 

3.900 5 0.0 99.8 | 

4.000 10 0.0 99.8 | 

4.100 10 0.0 99.9 | 

4.200 11 0.0 99.9 | 

4.300 1 0.0 99.9 | 
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QV? 


TOPGUN - RESPONSE REPORTS — 


* ET1 Report (Driver System) - TOPGUN PROJECT * 
----- PARAMETERS ~~--~-~~-~-~-------------------------------------------- 
Test Title Test 02; 48 TPS 


Test Date 
Test Length 
Window Length 
Tx Log File 


Terminals/X25 Line 

Tx Arrival Process 

Tx Arrival Rate/X25 Line 
Tx Arrival Rate/Terminal 
Tx Inter-Arrival Time 


87-02-11 

22:06:12 - 22:19:53 (821 sec) 
22:10:00 - 22:17:00 (420 sec) 
\DRIVER.$DMO1.TXGEN.TXLOGSUM 


80 # 
RANDOM 
6.000 tx/sec 
0.075 tx/sec 
13.333 sec 


1 


* 8 VLX SYSTEMS - 


48 TPS —- NonStop/SQ 


RSS MEASUREMENT RESULTS 


Tx Throughput 

Tx Response Time Average 
Std Dev 
Minimum 
Maximum 
Count 


Tx Response Time 10% 
20% 
30% 
40% 
50% 
60% 
70% 
80% 
90% 
95% 


Tx Think Average 
Std Dev 
Minimum 
Maximum 
Count 


Tx Delay Average 
Std Dev 


Hun tow ow 


TOPGUN - RESPONSE REPORTS - 


(vs 2.02) ---- rrr rrr rr rrr rrr 


47.498 tx/sec 
0.903 sec 
0.406 sec 
0.276 sec 
9.515 sec 


oo 

ol 

oO 

“a 

@ 

(9) 
AAA ARN S 


14.3%) 
22.5%) 
31.9%) 
41.6%) 
51.5%) 
60.7%) 
75.3%) 
80.6%) 
90.4%) 
95.3%) 


93.2%) 


1 


* 8 VLX SYSTEMS - 


48 TPS - NonStop/SQ 


TOPGUN - RESPONSE REPORTS - 1 * 8 VLX SYSTEMS - 48 TPS - NonStop/SQ 


* ET! Response Time Distribution #* 


——S wee ee ee oe ee ee ae me re oe a a ww ee a a es a we ee ee 


Mean Std Min Max Count Thruput 


RespTime Count Pct CumPct 


0.000 0 0.0 0.0 { 

0.100 Oo 0.0 0.0 | 

0.200 0 0.0 0.0 | 

0.300 1 0.0 0.0 | 

0.400 34 0.2 0,2.:| 

0.500 353 1.8 1.9 |*** 

0.600 1272 6.4 8.3 | ##eeKR KER EE 

0.700 2821 14.1 22.5 | #¥ eee ee EEE RR ERE EEE EER EEK 
0.800 3827 19.2 44.6 | Roe KK 
0.900 3802 19.1 GOLF | FREE ERE EEK KHER EEK EEK EE REE ERE KEK 
1.000 2909 14.6 F5H.d | €# Ha ee ee a eK RE EE EE ERE EK 
1.100 1918 9.6 84.9 | HeHEERE KEKE RHE KEK EE EX 
1.200 1088 5.5 90.4 |####ee eee es 

1.300 585 2.9 93.3 |**#e4e% 

1.400 394 2.0 95.3 |*##* 

1.500 244 1.2 96.5 |** 

1.600 169 0.8 97.3 |* 

1.700 134 O.7 98.0 |* 

1.800 85 0.4 98.4 | 

1.900 70 0.4 98.8 | 

2.000 50 0.3 99.0 | 

2.100 50 0.3 99.3 | 

2.200 19 0.1 99.4 | 

2.300 14 0.1 99.4 | 

2.400 16 0.1 99.5 | 

-2.500 14 0.1 99.6 | 

2.600 5 0.0 99.6 | 

2.700 9 0.0 99.7 | 

2.800 7 0.0 99.7 | 

2.900 4 0.0 99.7 | 

3.000 1 0.0 99.7 | 

3.100 2 0.0 99.7 | 

3.200 1 0.0 99.7 | 

3.300 1 0.0 99.7 | 

3.400 1 0.0 99.7 | 

3.500 0 0.0 99.7 | 

3.600 1 0.0 99.7 | 

3.700 1 0.0 99.7 | 

3.860 8) G.G 99.7 | 

3.900 1 0.0 99.8 | 

4.000 0 0.0 99.8 | 

4.100 1 0.0 99.8 | 

4.200 0 60.0 99.8 | 

4.300 0 0.0 99.8 | 

4.400 0 0.0 99.8 | 


48 TPS - NonStop/SQ 


* 8 VLX SYSTEMS - 


1 


TOPGUN - RESPONSE REPORTS - 
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TOPGUN - RESPONSE REPORTS - 


----- PARAMETERS ----------------------------------------------------- 


Test Title 
Test Date 
Test Length 
Window Length 
Tx Log File 


Terminals/X25 Line 

Tx Arrival Process 

Tx Arrival Rate/X25 Line 
Tx Arrival Rate/Terminal 
Tx Inter-Arrival Time 


hou not i 


Test 01; 40 TPS 

87-02-11 

21:46:24 - 21:58:48 (744 sec) 
21:50:00 - 21:57:00 (420 sec) 
\DRIVER.$DM0O1.TXGEN.TXLOGSUM 


80 # 
RANDOM 
5.000 tx/sec 
0.063 tx/sec 
16.000 sec 


1 


* 8 VLX SYSTEMS - 


40 TPS - NonStop/SQ 


Tx Throughput 
Tx Response Time Average 


Tx Response Time 


Tx Think 


Tx Delay 


MEASUREMENT RESULTS 


Std Dev 
Minimum 
Maximum 
Count 


10% 
20% 
30% 
40% 
50% 
60% 
70% 
80% 
90% 
95% 


Average 
Std Dev 
Minimum 
Max imum 
Count 


Average 
Std Dev 
Minimum 
Maximum 
Count 


Un Ww WoW Ot 


~o000 0 0000 


16. 
16. 
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40 TPS - NonStop/SQ 
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TOPGUN - RESPONSE REPORTS - 


ET1 


Response Time Distribution # 


Std 


Max Count Thruput 


39.781 tx/s 


RespTime Count 
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* 8 VLX SYSTEMS - 


40 TPS - NonStop/SQ 


Sd.L 6S - INdysnosyy, 
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TOS/doisuoy 


CE 


CPU UTILISATION PER TRANSACTION 
SUMMARIZED FOR A 7 MINUTE PERIOD 


LOADID NUM-TRANS TPS 


SQL59 24596 58.562 


AVG CPU 
BUSY % 


86.310 


CPU PER 
TRANS 


INTRPT BUSY DISC IOS 
PER TRANS PER TRANS 


CHITS 
PER TRANS 


TOPGUN - SQ 


CPU UTILISATION BY PROCESS TYPE 


CPU PER SENDS PER 


PROCESS-TYPE TRANS TRANS 
ATB-B 5.287 000 
ATB-P 24.541 894 
AUDIT-B 591 001 
AUDIT-P 1.400 .529 
FOX .681 .374 
HISTORY-B 2.764 000 
HISTORY-P 5.328 .112 
INTERRUPTS 27.728 .000 
MISC -243 .136 
PATHMON -900 .000 
SERVER 20.556 4.000 
TCP 18.201 2.000 
TMF MONITOR 3.139 000 
TMP -783 .096 
X.25 6.574 .000 
117.816 8.140 


Loadid - SQL59 


RECVS PER 
TRANS 


CPU BUSY 
PERCENT 


TOPGUN - 


SQ 


Bi? 


DETAILED CPU UTILIZATION BY TRANSACTION 


PROCESS-TYPE 


HISTORY-B 
HISTORY-P 
INTERRUPTS 
MISC 
PATHMON 
SERVER 

TCP 

TMF MONITOR 
TMP 


LOADID - SQL59 


CPU O 


CPU 1 


CPU 2 


CPU 4 


CPU 5 


TOPGUN - SQ 


Disc Utilisation Summary per Transaction 


REQ PER READS PER WRITES PER 

USAGE TRANS TRANS TRANS 
ATB 3.085 1.001 2.114 
AUDIT TRAILS -530 .001 . 208 
HISTORY 1.001 -002 .023 
UNUSED . 000 .006 .006 
XRAY .027 .004 091 


Loadid - SQLS9 


512 HITS PER 
TRANS 


1024 HITS PER 
TRANS 


2048 HITS PER 
TRANS 


4096 HITS PER 
TRANS 


TOPGUN - SQ 


Disc Utilisation Summary 


SUM SUM SUM 
USAGE REQUESTS READS WRITES 
ATB 75878 24617 52008 
AUDIT TRAILS 13038 17 5121 
HISTORY 24610 41 572 
UNUSED 0 156 150 
XRAY 672 107 2228 


Loadid - SQL59 


512 HITS 
25307 
0 
0 
0 
0 


1024 HITS 


2048 HITS 
24209 
0 
0 
0 
0 


4096 HITS 


TOPGUN - SQ 


SUM input 
DEVICE~-NAME REQUESTS bytes 


$XA1 3181 352711 
$XA2 3078 341771 
$XA3 3042 336835 
$XA4 3038 336997 
SXAS 2982 330876 
$XA6 3082 342285 
$XA7 3073 341414 
$XAB 3110 345045 


24586 2727934 


Loadid - SQL59 


summary 


output 
bytes 


669163 
648049 
640122 
639162 
627474 
648434 
646731 
654450 


5173585 


write 
utilisat 


jon 


input 
utilisation 


TOPGUN —- SQ 


bt 


Communications 


line summary per transactions 


Output per input per 


LOADID Transactions trans trans 


24596 199.927 100.012 


TOPGUN - 


SQ 


@- Enscribe 


©= NonStop/SQL 


Response time 
in seconds - 
90% 


8VLX 


Response time vs. throughput ET1 with TMF 


Transactions per second on 8 VLXs 


* For 90% of transactions 


SAL 09 - ndysno.ryy, 


SINHALISAS XTIA 8x T 


HaTyOSNA 


-~ PARAMETERS 


Test Title 
Test Date 
Test Length 
Window Length 


Tx 


Log File 


Terminals/X25 Line 


Tx 
Tx 
Tx 
Tx 


Arrival Process 
Arrival Rate/X25 Line 
Arrival Rate/Termina|l 
Inter~-Arrival Time 


- TOPGUN PROJECT 
Test 07; 80 TPS; COB 
87-02-12 
02:21:40 - 02:33:15 (695 sec) 
02:25:00 - 02:32:00 (420 sec) 


\ORIVER.$DMO1.TXGEN.TXLOGSUM 


80 # 
RANDOM 
10.000 tx/sec 
0.125 tx/sec 
8.000 sec 


Tx Throughput 
Tx Response Time Average 


Tx Response Time 


Tx Think 


Tx Delay 


MEASUREMENT RESULTS 


Std Dev 
Minimum 
Maximum 
Count 


10% 
20% 
30% 
40% 
50% 
60% 
70% 
80% 
90% 
95% 


Average 
Std Dev 
Minimum 
Maximum 
Count 


Average 
Std Dev 


unk uuu 


(vs 2.02) 


tx/sec 
sec 
sec 
sec 
sec 


a 
@ 
oO 
LALA LALOR 


10.3%) 
20.8%) 
33.2%) 
42.6%) 
51.3%) 
61.6%) 
71.8%) 
80.8%) 
90.4%) 
95.0%) 


77.6%) 
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Pct 
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PUruVvit ~— NROVITVNGeE NROEYrTvnRIS ~— 


ET1 Response Time Distribution #* 
Min Max Count Thruput 
0.518 s 9.229 s 25139 59.855 tx/s 

CumPct 
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* 8 VLX SYSTEMS - 


60 TPS - ENSCRIB 


SAL 6S - ndysnoryy, 


SIWHLSAS XTIA 8 «TIT 


Aad OSNA 


TOPGUN 


- RESPONSE REPORTS - 


----- PARAMETERS -~-----~--------------------------------------------- 


Test Title 
Test Date 
Test Length 
Window Length 
Tx Log File 


Terminals/X25 Line 

Tx Arrival Process 

Tx Arrival Rate/X25 Line 
Tx Arrival Rate/Terminal 
Tx Inter-Arrival Time 


bu uw nou 


Test 05; 64 TPS; COB 

87-02-12 

02:03:54 - 02:15:32 (698 sec) 
02:07:00 - 02:14:00 (420 sec) 
\DRIVER.$DM0O1.TXGEN.TXLOGSUM 


80 # 
RANDOM 
8.000 tx/sec 
0.100 tx/sec 
10.000 sec 


1 


* 8 VLX SYSTEMS - 


59 TPS 


ENSCRIB 


Tx Throughput 
Tx Response Time Average 


Tx Response Time 


Tx Think 


Tx Delay 


MEASUREMENT RESULTS 


Std Dev 
Minimum 
Maximum 
Count 


10% 
20% 
30% 
40% 
50% 
60% 
70% 
80% 
90% 
95% 


Average 
Std Dev 
Minimum 
Maximum 
Count 


Average 
Std Dev 
Minimum 
Maximum 
Count 


Hin bade wu a 


bun wou 


(vs 2.02) 


sec 
sec 
sec 
sec 


tx/sec 


¢ 


11.2%) 
22.4%) 
30.5%) 
43.6%) 
51.9%) 
62.8%) 
71.8%) 
81.0%) 
90.9%) 
95.1%) 


85.4%) 


14.6%) 


LVRPUUN —~ ROSIPUNSE KEPURKRISO 7— 
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ENSCRIB 


TOPGUN - RESPONSE REPORTS - 1 * 8 VLX SYSTEMS - 59 TPS - ENSCRIB 


* ET1 Response Time Distribution * 


Mean Std Min Max Count Thruput 
1.582 s 0.561 s 0.469 s 4.911 s 24555 58.464 tx/s 


RespTime Count Pct CumPct 


0.000 0 0.0 0.0 | 

0.100 0 0.0 0.0 | 

0.200 8) 0.0 0.0 | 

0.300 0 0.0 G.0:\| 

0.400 fe) 0.0 0.0 | 

0.500 4 0.0 0.0 | 

0.600 A7 0.2 0.2 | 

0.700 174 0.7 0.9 |*** 

0.800 426 1.7 2.7 | RRR RES 

0.900 B23 3.4 6.0 | ae AE A a RR ROK 

1.000 1269 5.2 11.2 | oR OK ok ooo oe RR RR RR RR 

1 100 1753 7.1 18.3 | a RRR ROR ROR OR KK RK 
1.200 1966 8.0 ?6.3 RELE EEE EEE eee eee Se CSS S SSS S SESS SLES. £2) 
1.300 2105 8.6 34.9 | A A A i i a ak 
1.400 2135 8.7 43.6 [2 2 a a a A EE EEE EE KE 
1.500 2031 8.3 51.9 [Rk RR RRR RR RR EK 
1.600 1864 7.6 59.4 | ORR TORII OI dak aca x 
1.700 1638 G27 BEL 1 | a a a ae oe oe EO RK RK 
1.800 1400 5.7 71. | FRR RRR RRR ERE EER EEE EE EEE EEE 

1.900 1194 4.9 76.7 edidedededededdadedad dated d ttt tte 

2.000 1065 4.3 81.0 | oe oR a KE EK 

2.100 879 3.6 B4.6 | FREER RK KKK EEE Ee 

2.200 720 2.9 87.5 [HERE E RHE KEKE 

2.300 573 2.3 89.9 |*¥## eee ee KE x 

2.400 460 1.9 91.7 | ###¥eeRH HH 

2.500 393 1.6 93.3 |***#¥4¥% 

2.600 302 1.2 94.6 |*#*##* 

2.700 250 1.0 95.6 |**** 

2.800 195 0.8 96.4 |*** 

2.900 165 0.7 97.1 |*** 

3.000 137 0.6 97.6 |** 

3.100 112 0.5 98.1 |** 

3.200 85 0.3 98.4 |* 

3.300 74 0.3 98.7 |* 

3.400 46 0.2 98.9 | 

3.500 47 0.2 99.1 ! 

3.600 33 0.1 99.2 | 

3.700 37 0.2 99.4 | 

3.800 40 0.2 99.5 | 

3.900 22 0.1 99.6 | 

4.000 20 0.1 99.7 | 

4.100 13 0.1 99.8 | 

4.200 16 0.1 99.8 | 

4.300 14 0.1 99.9 | 
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* ET1 Report (Driver System) 


- TOPGUN PROJECT 


----- PARAMETERS ~~-----~--------------------------------------------- 


Test Title 
Test Date 
Test Length 
Window Length 
Tx Log File 


Terminals/X25 Line 

Tx Arrival Process 

Tx Arrival Rate/X25 Line 
Tx Arrival Rate/Terminal 
Tx Inter-Arrival Time 


Test 04; 60 TPS; COB 


87-02-12 
01:39:16 - 01:53:20 
01:44:00 - 01:51:00 


(844 sec) 
(420 sec) 


\DRIVER.$DMO1.TXGEN.TXLOGSUM 


80 # 
RANDOM 
7.500 tx/sec 
0.094 tx/sec 
10.667 sec 


+r O VLA OYSICWS 


05 


IrFS 7 


ENSURIDB 


TOPGUN —- RESPONSE REPORTS - 1 * 8 VLX SYSTEMS - 58 TPS - ENSCRIB 


----- MEASUREMENT RESULTS (vs 2.02) -----~--------------------------- 


Tx Throughput 58.050 tx/sec 


Tx Response Time Average = 1.454 sec 
Std Dev = 0.511 sec 
Minimum = 0.380 sec 
Maximum = 5.220 sec 
Count = 24381 # 
Tx Response Time 10% = 0.950 sec ( 13.0%) 
20% = 1.050 sec ( 21.0%) 
30% = 1.150 sec ( 30.3%) 
40% = 1.250 sec ( 40.2%) 
50% = 1.400 sec ( 53.8%) 
60% = 1.500 sec ( 61.7%) 
70% = 1.650 sec ( 71.6%) 
80% = 1.850 sec ( 81.8%) 
90% = 2.150 sec ( 90.7%) 
95% = 2.450 sec ( 95.4%) 
Tx Think Average = 10.635 sec 
Std Dev = 10.722 sec 
Minimum = 0.002 sec 
Maximum = 99.599 sec 
Count = 21209 # ( 87.0%) 
Tx Delay Average = 0.846 sec 
Std Dev = 0.584 sec 
Minimum = 0.000 sec 
Maximum = 4.574 sec 
Count = 3172 # ( 13.0%) 


* 


ET1 Response Time Distribution * 


Mean 


Std 


Pe 


t 


Min Max Count Thruput 
0.380 s 5.220 s 24381 58.050 tx/s 
CumPct 
0.0 | 
0.0 | 
0.0 | 
0.0 | 
020-4 
0.0 | 
0.4 |* 
1.7 | **##* 
4.5 | #RRREEEE EEE 
QS | FERRE EERE EEE EE EK EK 
16.9 | RRR ERE EE EERE EERE EEE KE REE 
25 6 | FH He EEE RE EE EE ERR KE 
BS 1 | a RR RE ERE ER EE ER ER EEE EE 
45.0 | ERR E KERR E AREER KEE ER AEE EEE EEK EE AE EE EE EEE EE 
BS | a a EEE EAE EEE EEE REESE 
C17 | FERRE ERR RARER REE RK AKER EEE KEE EEE 
68 S| Fa a RR KR OER EE 
74.6 | oe a 2 a eR EE EE 
79.6 | a i oo ok EE 
83.6 | HHERKKKRKE EEE KEE 
B69 | HERR ER KK EHS 
89.5 | FREER KEES ES 
91.7 | eee eee EE 
93.5 | #*# ee ee 
94.8 | RR 
95.9 | *###* 
96.9 | *** 
97.5 | ¥** 
98.0 | ** 
98.4 |* 
98.7 |* 
99.0 |* 
99.2 | 
99.3 | 
99.4 | 
99.6 | 
99.6 | 
99.7 | 
99.8 | 
99.8 | 
99.9 | 
99.9 | 
9 | 
9 | 
9 | 
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PARAMETERS 


Test Title 
Test Date 
Test Length 
Window Length 
Tx Log File 


Terminals/X25 Line 

Tx Arrival Process 

Tx Arrival Rate/X25 Line 
Tx Arrival Rate/Terminal 
Tx Inter-Arrival Time 


-  TOPGUN PROJECT * 
Test 03; 56 TPS; COB 
87-02-12 
01:19:37 - 01:31:38 (721 sec) 
01:22:00 - 01:29:00 (420 sec) 


\DRIVER.$DM0O1.TXGEN.TXLOGSUM 


80 # 
RANDOM 
7.000 tx/sec 
0.088 tx/sec 
11.429 sec 


1 


* 8 VLX SYSTEMS - 


55 TPS - 


ENSCRIB 


IUPQUN — MESPUNSO KEFURKIS ~— | * G VLA SYSIEMDS — D5 IPS ~- ENSCRIB 


Sear MEASUREMENT RESULTS: > 4Vs. (2202) (2==seae pean SSS asree ees sosasss 


Tx Throughput 54.748 tx/sec 


Tx Response Time Average = 1.243 sec 
Std Dev = 0.525 sec 
Minimum = 0.372 sec 
Maximum = 9.749 sec 
Count = 22994 # 
Tx Response Time 10% = 0.800 sec ( 12.1%) 
20% = 0.900 sec ( 21.7%) 
30% = 1.000 sec ( 33.5%) 
40% = 1.100 sec ( 45.7%) 
50% = 1.150 sec ( 51.5%) 
60% = 1.250 sec ( 61.6%) 
70% = 1.400 sec ( 73.5%) 
80% = 1.550 sec ( 81.7%) 
90% = 1.800 sec ( 90.1%) 
95% = 2.150 sec ( 95.5%) 
Tx Think Average = 11.494 sec 
Std Dev = 11.514 sec 
Minimum = 0.001 sec 
Maximum = 108.485 sec 
Count = 20566 # ( 89.4%) 
Tx Delay Average = 0.726 sec 
Std Dev = 0.593 sec 
Minimum = 0.000 sec 
Maximum = 7.661 sec 
Count = 2428 # ( 10.6%) 


TOPGUN ~— RESPONSE REPORTS - i * 8 VLX SYSTEMS - 55 TPS - ENSCRIB 


* ET1 Response Time Distribution #* 


ee em me sem tee ee at cee se me cs me ee em ae eee mee ae eae eae eee ee ee mee eae cre eee ee ee ee ee ene ee oe ee ee ee ee ee ee 


Mean Std Min Max Count Thruput 
1.243 s 0.525 s 0.372 s 9.749 s 22994 54.748 tx/s 


0.000 0 0.0 0.0 | 

0.100 fe) 0.0 0.0 | 

0.200 0 0.0 0.0 | 

0.300 0 0.0 0.0 | 

0.400 4 0.0 0.0 | 

0.500 42 0.2 0.2 | 

0.600 299 1.3 1.5 |**** 

0.700 842 3.7 5.2 | RRR EERE REESE 

0.800 1602 7.0 12.1 | FREER EERE EEE EE EEE EEE 

0.900 2210 D.6 QV 7 | EERE ERE EERE EEE EEE EEE EEE EEE EEE EEE 
1.000 2708 11.8 33.5 | RRR EREE EERE EERE SEE ERE EEE EEE EERE EEE EE EEE 
1.100 2799 12.2 45.7 | H#R EERE R EERE EERE EE ERE EEE RHEE ERE EEEE EE EE 
1.200 2524 11.0 56.7 | FeRRERER ERE E EERE EE EERE EERE EEE EEE EE EEE 
1.300 2110 G.2 65.8 | HERR RRR EERE REE ER EE EEE REE EE EES 
1.400 1753 7.6 735 | RRR REE EEE EEE EE ERE EE 
1.500 1305 5.7 79.1 | eee ERR EER ES ERE EEE 

1.600 1064 4.6 83.8 | FHSS SE SEES EEE 

1.700 775 3.4 87.1 |###eeeee EEE 

1.800 689 3.0 90.1 |*##*¥#¥¥ 444% 

1.900 474 2.1 92.2 | **¥*¥e4* 

2.000 344 1.5 93.7 |***** 

2.100 298 1.3 95.0 |#**** 

2.200 221 1.0 96.0 |*#** 

2.300 201 0.9 96.8 |*** 

2.400 132 0.6 97.4 |* 

2.500 113 0.5 97.9 |* 

2.600 79 0.3 98.2 |* 

2.700 67 0.3 98.5 |* 

2.800 64 0.3 98.8 | 

2.900 38 0.2 99.0 | 

3.000 40 0.2 99.1 | 

3.100 27 0.1 99.3 | 

3.200 24 0.1 99.4 | 

3.300 18 O.1 99.4 | 

3.400 13° 0.1 99.5 | 

3.500 12 0.1 99.6 | 

3.600 13 0.1 99.6 | 

3.700 7 0.0 99.6 | 

3.800 4 0.0 99.7 | 

3.900 4 0.0 99.7 | 

4.000 0 0.0 99.7 | 

4.100 2 0.0 99.7 | 

4.200 1 0.0 99.7 | 

4.300 2 0.0 99.7 | 


55 TPS —- ENSCRIB 


* 8 VLX SYSTEMS - 
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SAL 8p - INdysnosyy, 


SINHLSAS XTA 8«T 


AaldOSNa 


TOPGUN — RESPONSE REPORTS - 


----- PARAMETERS ---~-~------------------------------------------------ 


Test Title 
Test Date 
Test Length 
Window Length 
Tx Log File 


Terminals/X25 Line 

Tx Arrival Process 

Tx Arrival Rate/X25 Line 
Tx Arrival Rate/Terminal 
Tx Inter-Arrival Time 


Test 02; 48 TPS; COB 

87-02-12 

00:59:37 - 01:10:42 (665 sec) 
01:02:00 - 01:09:00 (420 sec) 
\DRIVER.$DMO1.TXGEN.TXLOGSUM 


80 # 
RANDOM 
6.000 tx/sec 
0.075 tx/sec 
13.333 sec 


1 


* 8 VLX SYSTEMS — 


48 TPS - 


ENSCRIB 


ae 


TSS 5 MEASUREMENT RESULTS 


Tx Throughput 
Tx Response Time 


Tx Response Time 


Tx Think 


Tx Delay 


Average 
Std Dev 
Minimum 
Maximum 
Count 


10% 
20% 
30% 
40% 
50% 
60% 
70% 
80% 
90% 
95% 


Average 
Std Dev 
Minimum 
Maximum 
Count 


Average 
Std Dev 
Minimum 
Max imum 
Count 


unt enn dow a 


(vs 2.02) 


47.845 
0.894 
0.259 
0.301 
3.542 
20095 


0.650 
0.700 
0.750 
0.800 
0.900 
0.950 
1.000 
1.100 
1.250 
1.400 


13.397 
13.461 
0.002 
129.230 
18738 


0.487 
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tx/sec 
sec 
sec 
sec 
sec 


“ 
@ 
oO 
2x LN LOL 


14.4%) 
21.8%) 
30.7%) 
40.2%) 
58.9%) 
66.6%) 
73.0%) 
82.8%) 
91.5%) 
95.7%) 


93.2%) 


a wet ee ne er a ee a a a ae a a ea a a a a ae ee ee 


1 


* 8 VLX SYSTEMS - 


48 TPS - ENSCRIB 


TOPGUN - RESPONSE REPORTS - 1 * 8 VLX SYSTEMS - 48 TPS - ENSCRIB 


* ET1 Response Time Distribution #* 


Mean Std Min Max Count Thruput 
0.894 s 0.259 s 0.301 s 3.542 s 20095 47.845 tx/s 


0.000 o)60.0—CiO.0 | 

0.100 0 0.0 0.0 | 

0.200 0 0.0 0.0 | 

0.300 0 0.0 0.0 | 

0.400 18 0.1 O21 »'| 

0.500 355 1.8 1.9 |*** 

0.600 1335 6.6 B.5 | HERE EEE EES 

0.700 2669 13.3 21.8 | A a EE EE 
0.800 3692 18.4 40.2 | ## #4444 e EE EE EE EEE EEE EEE EK EE ERE 
0.900 3759 18.7 SB.Q | Ke a ee EEE 
1.000 2847 14.2 73.0 | RR REE EEE EEE EE REESE 
1.100 1963 9.8 82.8 Redhead dedadededededadedede deka de tet! 

1.200 1331 6.6 89.4 |##eEKKE EER EEE 

1.300 805 4.0 93.4 | ¥#*¥#*¥e%% 

1.400 448 2.2 95.7 |*#*#4* 

1.500 291 1.4 97.1 |*** 

1.600 196 1.0 98.1 |** 

1.700 136 0.7 98.8 |* 

1.800 72 0.4 99.1 | 

1.960 51 0.3 99.4 | 

2.000 46 0.2 99.6 | 

2.100 35 0.2 99.8 | 

2.200 13 0.1 99.8 | 

2.300 12 0.1 99.9 | 

2.400 6 0.0 99.9 | 

2.500 1 0.0 99.9 | 

2.600 6 0.0 100.0 | 

2.700 1 0.0 100.0 | 

2.800 3 0.0 100.0 | 

2.900 1 0.0 100.0 | 

3.000 1 0.0 100.0: | 

3.100 0 0.0 100.0 | 

3.200 1 0.0 100.0 | 

3.300 Q 0.0 100.0 | 

3.400 0 0.0 100.0 | 

3.500 0 0.0 100.0 | 

3.600 1 0.0 100.0 | 


SAL OF - ndysnomyy, 


SINHLSAS XIA 8«T 


AGIMOSNA | 


Vl 
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----= PARAMETERS 3-32 - nwt nnn nnn nnn ee one 


Test Title 
Test Date 
Test Length 
Window Length 
Tx Log File 


Terminals/X25 Line 

Tx Arrival Process 

Tx Arrival Rate/X25 Line 
Tx Arrival Rate/Terminal 
Tx Inter-Arrival Time 


uu nou tt 


fou nw ow oa 


Test 01; 40 TPS; COB 

87-02-12 

00:26:26 - 00:39:17 (771 sec) 
00:30:00 - 00:37:00 (420 sec) 
\DRIVER.$DM0O1.TXGEN.TXLOGSUM 


80 # 
RANDOM 
5.000 tx/sec 
0.063 tx/sec 
16.000 sec 


1 


* 8 VLX SYSTEMS - 


40 TPS - 


ENSCRIB 


Ss -= MEASUREMENT RESULTS 


Tx Throughput 

Tx Response Time Average 
Std Dev 
Minimum 
Maximum 
Count 


Tx Response Time 10% 
20% 
30% 
40% 
50% 
60% 
70% 
BO% 
90% 
95% 


Tx Think Average 
Std Dev 
Minimum 
Max imum 
Count 


Tx Delay Average 
Std Dev 
Minimum 
Maximum 
Count 


(vs 2. 


39. 


-~-oa00 00000 


Ooo 


807 tx/sec 


-755 sec 
.197 sec 
-275 sec 
-432 sec 


“I 
ey) 
Oo 
on 
© 
oO 
ROA AON 


“831 # ( 


12.4%) 
20.5%) 
30.6%) 
42.4%) 
54.0%) 
65.0%) 
74.8%) 
82.2%) 
90.9%) 
96.1%) 


95.0%) 


5.0%) 
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1 


* 8 VLX SYSTEMS - 


40 TPS - ENSCRIB 


of 


TOPGUN - RESPONSE REPORTS - 1 * 8 VLX SYSTEMS - 40 TPS - ENSCRIB 


* ET1 Response Time Distribution * 


Mean Std Min Max Count Thruput 
0.755 s 0.197 s 0.275 s 2.432 s 16719 39.807 tx/s 


RespTime Count Pct CumPct 


0.000 0 0.0 0.0 | 

0.100 0 0.0 0.0 | 

0.200 0 0.0 0.0 | 

0.300 5 0.0 0.0 | 

0.400 146 0.9 0.9 {* 

0.500 989 5.9 6.8 | eee KEKE RH 

0.600 2283 13.7 20.5 | #¥#FRERKEEAE KEKE EE EEK EEE 

0.700 3659 21.9 42.4 | HR EE EO ERR A EOE EO EOE EK EE 
0.800 3783 22.6 65.0 | ##¥ ¥ x Re KR RR OK RR KR ER EEK 
0.900 2877 17.2 B22 | HRRRRRREEE EE EER KERR EEE KE EEE ERK 
1.000 1449 B.7 GO.Q9 | ¥¥e RRR KER KK ERS 

1.100 670 4.0 94.9 |*#*#*#4 

1.200 372 2.2 97.1 |**** 

1.300 204 1.2 98.3 |** 

1.400 111 0.7 99.0 |* 

1.500 66 0.4 99.4 | 

1.600 44 0.3 99.6 | 

1.700 22 0.1 99.8 | 

1.800 15 0.1 99.9 | 

1.900 10 0.1 99.9 | 

2.000 5 0.0 99.9 | 

2.100 2 0.0 100.0 | 

2.200 4 0.0 100.0 | 

2.300 1 0.0 100.0 | 

2.400 1 0.0 100.0 | 

2.500 1 0.0 100.0 | 


SAL 6S - Ndysno.syy, 


WHISAS XTIA 8«T 


Aa OSNA 


3 


2% 


CPU UTILISATION PER TRANSACTION 
SUMMARIZED FOR A 7 MINUTE PERIOD 


LOADID NUM-TRANS TPS 


ENS58 24408 58.528 


AVG CPU 
BUSY % 


86.056 


CPU PER 
TRANS 


INTRPT BUSY 
PER TRANS 


DISC IQS 
PER TRANS 
3.4 


CHITS 
PER TRANS 


TOPGUN - 


ENSCRIB 


Gs 


CPU UTILISATION BY PROCESS TYPE 


PROCESS-TYPE 


HISTORY-B 
HISTORY-P 
INTERRUPTS 


MISC 
PATHMON 
SERVER 
TCP 


TMF MONITOR 


TMP 
X.25 


Loadid -— ENS58 


CPU PER 
TRANS 


117.533 


SENDS PER 
TRANS 


RECVS PER 
TRANS 


CPU BUSY 
PERCENT 


30.807 
166.319 
3.314 
8.064 
-361 
16.516 
30.788 
170.225 
1.492 
-392 
94.200 


687.899 


TOPGUN - ENSCRIB 


pt 


DETAILED CPU UTILIZATION BY TRANSACTION 


PROCESS-TYPE CPU 0 CPU 1 CPU 2 CPU 3 CPU 4 CPU 5 CPU 6 CPU 
ATB-B 3.830 3.780 3.800 3.850 3.860 3.950 3.760 3 
ATB-P 19.860 20.680 20.350 20.4709 21.370 21.040 22.200 20 
AUDIT-B 000 000 .000 000 000 3.310 ee 
AUDIT-P 000 000 .000 000 8.060 005 300 
FOX . 360 .000 000 000 .000 .000 .000 
HISTORY-B . 000 16.510 .000 .000 .000 .000 .000 
HISTORY-P 30.780 .000 .000 .000 .000 .000 .000 : 
INTERRUPTS 20.020 19.370 18.360 20.800 23.070 23.370 22.120 23. 
MISC 1.040 -340 -020 -010 -010 .010 .010 
PATHMON .370 .010 .000 .000 .000 .000 .000 . 
SERVER 10.300 14.950 12.130 11.650 11.240 9.920 12.740 11. 
TCP .000 10.180 - 000 15.910 15.750 26.260 15.670 20. 
TMF MONITOR 1.520 2.500 -870 2.420 2.450 3.200 2.410 2. 
TMP -000 -000 4.520 -000 -000 .000 .000 
X.25 -000 -000 9.820 9.380 -000 .900 9.460 9. 


LOADID - ENS58 


TOPGUN - ENSCRIB 


St 


Disc Utilisation Summary per Transaction 


REQ PER 

USAGE TRANS 
ATB 7.881 
AUDIT TRAILS -512 
HISTORY 1.000 
UNUSED -000 
XRAY -026 


Loadid - ENS58 


TRANS 


READS PER WRITES PER 
TRANS 


512 HITS PER 
TRANS 


1024 HITS PER 
TRANS 


2048 HITS PER 
TRANS 


4096 HITS PER 
TRANS 


TOPGUN - ENSCRIB 


DE. 


Disc Utilisation Summary 


SUM SUM SUM 
USAGE REQUESTS READS WRITES 512 HITS 1024 HITS 2048 HITS 
ATB 192355 27440 57041 56569 0 54871 
AUDIT TRAILS 12504 148 5030 0 0 0 
HISTORY 24397 14 657 0 0 0 
UNUSED 0 190 181 0 0 0 
XRAY 633 111 1802 0 0 0 


Loadid - ENS58 


4096 HITS 


135081 
53 
24404 
0 

0 


TOPGUN — 


ENSCRIB 


TOPGUN - ENSCRIB 


Communications line utilisation summary 


SUM input output write input 
DEVICE-NAME REQUESTS bytes bytes utilisation utilisation 
$XA1 3112 344853 654472 22.261 11.730 
$XA2 3077 341042 647303 22.017 11.600 
$XA3 3029 335452 637259 21.676 11.410 
$XA4 3015 333981 634425 21.579 11.360 
$XA5 2989 331075 629047 21.396 11.261 
$XAG 3059 339245 643501 21.888 11.539 
$XA7 3049 337581 641543 21.821 11.482 
$XA8B 3062 339808 644370 21.917 11.558 = 


24392 2703037 5131920 


Loadid - ENS58 


gf 
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Communications line utilisation summary 


SUM input output write input 
DEVICE-NAME REQUESTS bytes bytes utilisation utilisation 
$XA1 3097 343322 651231 22.151 11.678 
$XA2 3070 340799 646164 21.979 11.592 
$XA3 3050 338964 641426 21.817 11.530 
$XA4 3080 341715 647860 22.036 11.623 
$XA5 3007 333473 632803 21.523 11.342 
$XA6 3051 338991 642012 21.837 11.530 
SXA7 3082 341846 648226 22.047 11.627 
$XA8 3114 345497 654818 22.271 11.751 


me ee oe we oe we ee ee ee ee oe oe oe wee ee ee = 


24551 2724607 5164540 


Loadid - ENS59 


se 


Communications 


line summary per transactions 


Output per input per 


LOADID Transactions trans trans 


24408 199.869 99.848 


TOPGUN - 


ENSCRIB 
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TAL - T9250C00 - (15JUL87) Source language: TAL - Target machine: Tandem NonStop II System 
Date - Time : 18FEB87 - 19:52:32 Default options: On (LIST,CODE,MAP,WARN,LMAP) - Off (CICODE,INNERLIST) 
1. 000000 0 QO ?SYMBOLS, nocode, noprintsym 


2% 000000 0 O 7NOLIST, source $system.system.extdecs 


PAGE 2 $BASE.GRAYTGU1.ET1IS [1] Et 1AdemoAprogram 18FEBB7 19:52:32 


7 ooco000 0 O Proc ET1Ademo main; 
8. 000000 1 O begin 
8. ooocss 31 i int .buf [-1:7106], 
10. 000000 1 1 .driverAfname [0:11], 
11. 000000 1 #1 .driverAtname [0:11], 
12. 000000 1 1 .driverAbuf [0:100], 
13. 000000 1 1 rnum, termAnum, driverAfnum, 1, error; 
14. 000000 1 1 
15. 000000 1 1 fixed myAtime; 
16. 000000 1 1 
17. o0oo000 1 1 string .sAbuf := @buf ‘<<' 1; 
18. ooo000 1 1 
19, ooooc00d 1 1 struct .TxAdata; 
20. 000000 1 1 begin 
21. o00000 1 2 string f1; 
22. 000000 1 2 string account [0:11]; 
23. 000000 1 2 string f2; 
24. 000000 1 2 string teller [0:11]; 
25. 000000 1 2 string 3; 
26. 000000 1 2 string branch [0:11]; 
27. 000000 1 2 string f4; 
28. 000000 1 2 string amount [0:11]; 
29. 000000 1 2 end; 
30. oooo0o 1 1 
31. 000000 1 1 struct .TxAresp; 
32. ooo0000 1 1 begin 
33. 000000 1 2 int length; 
34. 000000 1 2 int termAname [0:11]; 
35. 000000 1 2 fixed startAtime; 
36. Qoo0v00 1 2 int (32) xtime [0:1]; 
37. 000000 1 2 fixed respAtime = xtime; 
38. oooo000 1 2 end; 
39. 000000 1 1 
40. 000000 1 1 subproc newAtime (timeAfield); 
41. 000000 2 1 POSS Sessa SS sr Stra Sessa = 
42. 000000 2 #1 string .timeAfield; 
43. 000000 2 1 begin 
44, 000000 2 2 int timeArarray [0:7], m; 
45. 000000 2 2 string .month = ‘P’ := "JanFebMarAprMayJunJulAugSepOctNovDec"; 
46. 000022 2 2 entry startAtime; 
47. 000022 2 2 
48. 000022 2 2 call time (timeAarray); 
49. 000031 2 2 timerarray [6] := timeArarray [6] * 10; ' make it milli seconds 
50. 000035 2 2 goto all; 
51. 000036 2 2 
52. 000036 2 2 startAtime: 
53. 000040 2 2 = ----------- 
54. 000040 2 2 call interprettimestamp ( converttimestamp (txAresp.startAtime, 1), 
55. 000040 2 2 timeAarray); 
56. OO00S6 2 2 
57 000056 2 2 all: 
58. 000056 2 2 aa 
59. 000056 2 2 ! 0123456789+123456789+123 
60. 000056 2 2 timerAfield ‘:=’ ["“DD MMM 1982, HH:MM:SS.nhhh", O]; 
61. 000066 2 2 call numout (timeAfield [ 0], timeAarray [2], 10, 2); !Day 
62. 000074 2 2 call numout (timeAfield [ 7], timeAarray [0], 10, 4); !Vear 
63. 000103 2 2 call numout (timeAfield [13], timeAarray [3], 10, 2); 'tHour 


AR 


ALL 

M 

MONTH 
STARTATIME 
TIMEAARRAY 
TIMEAFIELD 


$BASE.GRAYTGU1.ET1S [1] 


000112 
000121 
000130 
000137 
000142 
000155 


000174 
000174 
000174 
000174 
000174 
000174 
000174 
000174 
000211 
000211 
000211 
000221 
000227 
000236 
000245 


000254 
000254 
000254 
000254 
000254 
000254 
000254 
000261 
000266 


000266 
000266 
000266 
000266 
000266 
000271 


NNNNNNNNNNNNDND = — NNNN NN 


NONNNNNN ~ — 


NNNN = = 


NNNNNNNNNDND =| = HH = NNNN DN 


NONNN ~~ A ~~ ee 


NN oo 


Et 1AdemoAprogram 


call numout (timeAfield [16], timeArarray [4], 

call numout (timeAfield [19], timeAarray [5], 

call numout (timeAfield [22], timeAarray [6], 

m := timeAarray [1] - 1; 

timeAfield [3] ‘:=’ month [m*3] for 3; 

end; !subproc newAtime; 

Label %*000056 
Variable INT Direct 
Variable STRING Indirect 
Entry %000037 
Variable INT Direct 
Variable STRING Indirect 


subproc responseAtime (time, field); 


fixed time; string .field; 


begin 
int hour, min , sec, mil, mic; 
call convertprocesstime (time, hour, min, 
0123456789+123456789+123 
field ’:=’ ["MM:SS.mmm", 0]; 
call numout (field [{ 0], min, 10, 2); 
call numout (fieid [ 3], sec, 10, 2); 
call numout (field [ 6], mil, 10, 3); 
end; 
Variable STRING Indirect 
Variable INT Direct 
Variable INT Direct 
Variable INT Direct 
Variable INT Direct 
Variable INT Direct 
Variable FIXED (0) Direct 
int subproc length (b); 
string .b; 
begin 
string .1; 
scan b until O -> @1; 
return @1 - @b; 
end; !subproc length 
Variable STRING Indirect 
Variable STRING Indirect 
subproc updateAtime; 
begin 
call newAtime (sAbuf); 
cali termAio (termAnum, buf, 25, 2 


sec, 


10 
10, 2); !Sec 
10, 3)3; !milli 


2); !Min 


~ 


!'month 


$-000 
P+O00 


$-010 
S-012 


mil, mic); 


S~006 
$-004 
$-000 
S-001 
$-003 
S-002 
$-012 


$-002 
S-000 


» D2, writer); 


18FEB87 


19:52:32 


ALLADONE 


150. 
151. 


BUFAP 


C 
I 


SBASE.GRAYTGU1.ET15 


000303 
000305 
000305 
000305 
000305 
000305 
000305 
000305 
000305 
000307 
000337 
000341 
000352 
000362 
000373 
000375 
000423 
000427 
000431 
000452 
000501 
000522 
000544 
000565 
000572 
000574 
000575 
000575 
000604 
000604 
000604 
000607 
000612 
000613 
000617 
000617 
000623 
000624 
000635 
000635 
000637 
000642 
000646 
000646 
000650 
000655 
000655 
000655 
000671 
000671 
000673 
000674 


NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNDNMNYNNYNNNNNNNN — — 


NNNAOAWABABWWAWWWHWHWWWWWWNNNNNNNNNNNNNNNNNNNNNNNNDNEA — ~~ |= 3d 


end; 


ti) 


subproc writeAmenu; 


begin 
int r, c, length, 
string .bufAp, .ol 
string .menu = ‘P’ 
Ol, D257" S"% 
02, 04, "First No 
03, 02, "=" 


05, 04, “Line Dri 
06, 04, "Branch 
07, 04, "Teller 
09, O02, "=", 

11, 04, “Account 
11, 66, "Ok: ", 
13, 02, "=", 

16, 04, "Terminal 
17, 04, “Response 


Et 1|AdemoAprogram 


alilAdo 
dAp; 


nStop 


ver 


used 
lengt 


ne, 


Bank 


nh 


i; 


18, 04, "Transaction started 


Debit/Credit 


19, 04, “Transaction response time aes 
20, 04, "Total response time Mee 
22, 70, “Next : ", 
23, 02, "=", 
*%377]; 
@bufAp := emenu ‘-' 1; 
do 
begin 
@oldAp := @bufAp ‘+’ 1; 


STACK @oaldAp, O 
STORE @bufAp; 
length := @bufA 


STACK @sAbuf, @ 
CODE (MOVB %67) 
allAdone 


; CODE (SBU %660); ! scan text until O -> @bufAp; 


‘ , 


p ‘- 


oldAp, 


@oldAp; 


! lTengt 


length + 2; ! sAbuf 


:= sAbuf [length + 


1) = %377; 


uf [2] for 77; 


cr := sAbuf [0]; 
c := sAbuf [1]; 
if sAbuf [2] = "=" then 
begin 
length := 78; 
sAbuf [3] ‘:=’ SAb 
-- for i := (c+10-2) to 
end; 
call termAio (termAnum, 
end 
until allAdone; 
call updateAtime; 


end; 


!subproc writeAmenu 


Variable 
Variable 
Variable 
Variable 


INT 
STRING 
INT 
INT 


buf 


70 by 10 do sAbuf 


{1] , length 


Direct 
Indirect 
Direct 
Direct 


Application”, 

Change line driver :", 
Change branch ae 
Change teller shitty 


Amount :", 


Bytes", 


h includ. row & col; 


’ —* 


:=’ text for length; 


[i] := Hae, 


~ 2, r, Cy writer); 


$-003 
S-001 
S-005 
$-002 


ooooooo0o°e~oooon00o 


a a a a? 


18F 


m 


oe) 


m® 


7 
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LENGTH 
MENU 
OLDAP 
R 
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Variable 
Variable 
Variable 
Variable 


Et 1AdemoAprogram 


INT 
STRING 
STRING 
INT 


Direct 
Indirect 
Indirect 
Direct 


$-004 
P+000 
S-000 
$-006 


18FEBS7 
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CLEARACOLS 
CLEARAROWS 
I 


167. 
168. 
169. 
170. 
71. 
172. 
173. 
174. 
175. 
176. 
177. 
178. 


SBASE.GRAYTGU1.ETIS [14] Et lAdemoAprogram 

000700 1 1 subproc clear; 

000700 2 1 ! -e---------H--- 

6000700 2 1 begin 

000700 2 2 int i := 0; 

000700 2 2 int .clearArows = ‘P’ := [ 5, 6, 7, 20, 22, Oj; 

000706 2 2 int .clearAcols = ‘P’ := [ 59, 59, 59, 48, 77, 0]; 

000714 2 2 

000714 2 2 sAbuf ‘’:='’ " " & sAbuf for 34; 

000731 2 2 while clearArows [i] <> 0 do 

000735 2 2 begin 

000735 2 3 call termAio (termAnum, buf, 2, clearArows [i], clearAcols [i], 

000752 2 3 ios= i+1; 

000754 2 3 end; 

000755 2 2 end; !subproc clear; 
Variable INT Indirect P+000 
Variable INT Indirect P+000 
Variable INT Direct $-000 

000760 1 1 

000760 1 1 subproc fileAerror (error) variable; 

000760 2 140 [0 wee errr 

000760 2 #1 int error; 

000760 2 #1 begin 

000760 2 2 if not G$param (error) then 

000762 2 2 call fileinfo (driverAfnum, error); 

001011 2 2 sAbuf ‘’:=' [“Line driver I/O error ####", O]; 

001021 2 2 call numout (sAbuf [22], error, 10, 3); 

001030 2 2 call termAio (termAnum, buf, length (buf), 20, 50, writedA); 

001045 2 2 call termAio (termAnum, buf, 1, 20, 48, readA); 

001057 2 2 end; 
Variable INT Direct $-002 

001077 1 1 

001077 1 #1 subproc readAnumeric (buffer, 1, row, col); 

001077 2 lf SeSS8 SSeS carr ss SSS SSeS see SS 5445455 

001077 2 #1 string .buffer; int 1, row, col; 

001077 2 1 begin 

001077 2 2 string .fc, .lc; 

001077 2 2 int ok, inAlen, i; 

001077 2 2 

001077 2 2 do begin 

001100 2 3 ok := -1; 

001102 2 3 sAbuf [1] := 0; 

001105 2 8 call termAio (termAnum, buf, 1, row, col, readA); 

001117 2 383 scan sAbuf while " " -> ofc; 

001123 2 3 rscan sAbuf [1-1] while " " -> @lc; 

001131 2 83 indAlen := @le ‘’-’ @fco + 1; 

001136 2 3 if inAlen > 0 then 

001141 2 3 for i := Q to inrlen -1 do 

001143 2 3 if not $numeric (fc [i]) then ok := Q; 

001160 2 3 end until ok; 

001162 2 2 if inAlen > 0 then 

001165 2 2 begin 

001165 2 3 buffer ‘:=’ “O" & buffer for 1-1; 

001201 2 3 buffer [1-1] ‘’=:’ le for inAlen; 


writeA); 


18FEB87 
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202. 001207 2 3 end; 

203. 001207 2 2 sAbuf ’:=’ buffer for 1; 

204. 001213 2 2 call termAio (termAnum, buf, 1, row, col, writeA); 

205. 001225 2 2 call updateAtime; 

206. 001226 2 2 end; ! subproc readAnumeric 
BUFFER Variable STRING Indirect $-011 
COL Variable INT Direct $S-006 
FC Variable STRING Indirect $-004 
I Variable INT Direct S-000 © 
INALEN Variable INT Direct S-001 
L Variable INT Direct $-010 
LC Variable STRING Indirect $-003 
OK Variable INT Direct $7002 
ROW Variable INT Direct $-007 

207 001232 1 1 


$BASE.GRAY 


001232 
001232 
001232 
001232 
001232 
001232 
001242 
001242 
001243 
001243 
001243 
001255 
001265 
001265 
001277 
001300 
001300 
001304 
001314 
001314 
001314 
001326 
001326 
001341 
001353 
001364 
001413 
001415 
001415 
001421 
001433 
001433 
001435 
001435 
001435 
001447 
001461 
001473 
001505 
001505 
001515 
001525 
001525 
001525 
001535 
001545 
001545 
001545 
601557 
001565 
001572 
001600 
001604 
001604 
001613 
6001613 
001613 


NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN = 


WWWWWWWWWWWWWWWAWAWOWWHKHWHWHHAOMTOKHBHDBADAHRHPDWWAOWWWADABAWAWWWHAWNNN] 


TOU 


Vi Subdproc daAit 18FEBB7 19:52; 


ji o:= -1, j, ok := -1, inAlen, error, newAentry := QO; 


re eS tS ee Se See ere ae = We dont start in the beginning --- 


SE Se yi ee ee ee a Read driver name ~~--~ 


call termAio (termAnum, driverAtname, 12, 5, 18, readA); 


if driverAtname = [6*[" "“]] then 

begin 
call termAio (termAnum, driverAfname, 12, 5, 18, write); 
goto LARB; 

end; 

driverAfname ‘:=’ driverAtname for 6; 


if driverAfnum > 1 then call close (driverAfnum) ; 


LAOP:; 


ae Se Wah ei TAT age te NY ag Me MOT ON PE RMI ® IGM Y 8 Oe eg aN TS ge On tg ny Te Open line driver ~---- 


call termAio (termAnum, driverAfname, 12, 5, 18, writeA); 
do begin 

sAbuf ‘:=’ " " & sAbuf for 78; 

call termAio (termAnum, buf, 55, 20, 50, write); 


call open (driverAfname, driverAfnum) ; 
call fileinfo (driverAfnum, error); 
if error then 
begin 
call fileAerror( error ); 
call termAio (termAnum, driverAfname, 12, 5, 18, readA); 
end; 
end until not error; 


‘ "900000010010"; 
* "900000010011"; 


txAdata.branch ne 3 
"000010000011"; 


txAdata.teller =f 
txAdata.account 


uoueow a 


sos 


txAdata.amount i "000000000628"; 

call readAnumeric (txAdata.branch, 12, 6, 18); 

call readAnumeric (txAdata.teller, 12, 7, 18); 
SS SSS SSS SSS SS SS SSS SSS SSS SSeS Ses Read Account/Amount ---------7! 
call readAnumeric (txAdata.account, 12, 11, 18); 

call readAnumeric (txAdata.amount, 12, 11, 46); 


SN eS ee ee ee ee oe ee oer eS a ee Por Check if ok to go ahead -----! 


call termAio (termAnum, buf, 1, 11, 70, readA); 


’ 
if $aipna (sAbufj then sAbuf := sADUf iand %*337; |! upsnift 
if sAbuf "2?" then return; ! exit program 
if sAbuf “E" then return; exit program 


AAU HH 
VV 
i) 
3 
Q 


if sAbuf "R" then goto LADR; reconfigure !; 
if sAbuf 
sAbuf “¥" then goto LAAA; read Account & amount again 
SES SS SSS Se See See SSS SS SSS ae = Clear all input fields -----~—! 
call clear; 


32 


PAGE 9 $BASE.GRAYTGU1.ET1S [1] subproc doAit 18FEB87 19:52:32 


266. 001614 2 3 
267. 001614 2 3 le aan a am mu aT Send it off to line driver --! 
268. 001614 2 3 driverAbuf ‘:=’ txAdata for $len (txAdata) bytes; 
269. 001620 2 3 
270. 001620 2 3 myAtime := Juliantimestamp; 
271. 001630 2 3 call writeread (driverAfnum, 
272. 001630 2 3 driverAbuf, 
273. 001630 2 3 $S$len( txAdata ), 
274. 001630 2 3 Slen( txAresp .)); 
275. 001641 2 3 myAtime := juliantimestamp - myAtime; 
276. 001654 2 3 
277. 001654 2 3 call fileinfo (driverAfnum, error); 
278. 001703 2 3 if error then 
279. 001705 2 3 begin 
280. 001705 2 4 call fileAerror( error ); 
281. 001711 2 4 if error = 1 then return; ! exit, line driver gone 
282. 001720 2 4 goto LADR; 
283. 001721 2 4 end; 
284. 001721 2 3 
285. 001721 2 3 KS SS Se SSS SSeS eee SSeS Sele SSS a Sea eS Print response stats -------- ' 
286. 001721 2 3 txAresp ’:=’ driverAbuf for $len (txAresp) bytes; 
287. 001725 2 3 call termAio (termAnum, txAresp.termAname, 16, 16, 37, write); 
288. 001740 2 3 call numout (sAbuf, txAresp.Jength, 10, 3); 
289. 001746 2 3 call termAio (termAnum, buf, 3, 17, 37, writeA); 
290. 001760 2 3 call startAtime (sAbuf); 
291. 001763 2 3 call termAio (termAnum, buf, length (sAbuf), 18, 37, write); 
292. 001777 2 3 txAresp.xtime [0] := Od; 
293. 002006 2 3 txAresp.respAtime := txAresp.respAtime * 1000f; 
294. 002022 2 3 call responseAtime (txAresp.respAtime, sAbuf); 
295. 002027 2 3 call termAio (termAnum, buf, length (sAbuf), 19, 37, writeA); 
296. 002043 2 3 call responseAtime (myAtime, sAbuf); 
297. 002050 2 3 call termAio (termAnum, buf, length (sAbuf), 20, 37, writeA); 
298. 002064 2 3 
299. 002064 2 3 A a ce ra a a a aa a a Ready for next one ? ~------- ! 
300. 002064 2 3 call updateAtime; 
301. 002065 2 3 call termAio (termAnum, buf, 1, 22, 77, readA); 
302. 002077 2 3 if $alpha (sAbuf) then sAbuf := sAbuf land %337; ! upshift 
303. 002105 2 3 if sAbuf = "?" then return; ' exit program 
304. 002113 2 3 if sAbuf = "E" then return; ! exit program 
305. 002120 2 3 if sAbuf = "R" then goto LADR; ' reconfigure !; 
306. 002124 2 3 
307. 002124 2 3 goto LAAA; ' go and read next transaction input; 
308. 002125 2 3 
309. 002125 2 3 La SSS SSeS SSS SSS Se TS SS eS SSS Tee Se ae eS Finnished ---------~--------W-- ! 
310. 002125 2 3 end; 
311. 002125 2 2 
312. 002125 2 2 end; !subproc doAit 
ERROR Variable INT Direct S-001 
I Variable INT Direct S-005 
INALEN Variable INT Direct S-002 
J Variable INT Direct S-004 
LAAA Label %001525 
LADR Label %001243 
LAOP Label %001314 
LARB Label %001435 


NEWAENTRY Variable INT Direct $-000 


Ze‘: 2G:6l 


2863461 


£€00-Ss 


yOe8ULG 


@LGeLuean 


i 


j 


_ 
=~ 
rh 
ON 
(=) 
co 


SLLSINSLAVHD  3Sves 


Oi 


xO 


39Vd 


[c 


I 


PAGE 11 
315. 002171 1 
316. 002220 1 
317, 002223 1 
318. 002232 1 
319. 002243 1 
320. 002253 1 
321. 002260 1 
322. 002272 1 
323. 002272 1 
324. 002273 1 
325. 002273 1 
326. 002273 1 
327. 002273 1 
328. 002316 1 
329. 002316 1 
330. 002317 1 
331. 002317 1 
332. 002327 1 
333. 002334 1 
334. 002334 1 
BUF 
CLEAR 
DOAIT 
DRIVERABUF 
DRIVERAFNAME 
DRIVERAFNUM 
DRIVERATNAME 
ERROR 
FILEAERROR 
L 
LENGTH 
MYATIME 
NEWATIME 
READANUMERIC 
RESPONSEATIME 
RNUM 
STARTATIME 
SABUF 
TERMANUM 
TXADATA 
1 F1 
1 ACCOUNT[O:11] 
1 F2 
1 TELLER[O:11] 
1 F3 
1 BRANCH[O:11] 
1 F4 
1 AMOUNT[0O:11] 
TXARESP 
1 LENGTH 
1 TERMANAME[O: 11] 
1 STARTATIME 
1 XTIME[O: 1] 
1 RESPATIME 
UPDATEATIME 
WRITEAMENU 


“NU NNNNNNNNNNNNNNNNDND — 


SBASE.GRAYTGUI.ET1S [1] 


begin ! of main’s 
buf [{-1] := 0; 
buf ‘:=’ 


end; 


end; 


call open (buf 
call 
driverAfname ‘’ 
call 


termAio (termAnum, 


Main of proc tmfAdemo 


code 


["$RECEIVE", 8*¥[" 


» rnum); 


read (rnum, buf, 80); 


' place a stopper for reverse scans 


ast We 


:=' buf [21] for 12; 


call writeAmenu; 


txAdata. fi 
txAdata.f2 
txAdata.f3 
txAdata.f4 


call doit; 


call 
call stop; 


Variable 
Subproc 
Subproc 
Variable 
Variable 
Variable 
Variable 
Variable 
Subproc 
Variable 
Subproc 
Variable 
Subproc 
Subproc 
Subproc 
Variable 
Subproc 
Variable 
Variable 
Variable,64 
0,1 
hea 
15,1 
16,1 
32,1 
33,1 
47,1 
50,1 
Variable,52 
0,2 
2,2 
32,10 
42,4 
42,10 
Subproc 
Subproc 


4 uM 
cae | 


term*io (termAnum,,,,, 


‘of main’s code 


INT 


FIXED (0) 


INT 


STRING 
INT 

STRUCT 
STRING 
STRING 
STRING 
STRING 


INT 

FIXED (0) 
INT (32) 

FIXED (0) 


buf {9]..,,, 


close”); 


Indirect 
%000714 
%001232 
Indirect 
Indirect 
Direct 
Indirect 
Direct 
%000760 
Direct 
%000254 
Direct 
%000025 
%001077 
%000174 
Direct 
%000037 
Indirect 
Direct 
Indirect 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Indirect 
Direct 
Direct 
Direct 
Direct 
Direct 
%000266 
%000575 


opens) ; 


L+020 


c€'zS'6l Z£eg3dé8l owepysw} Joud 4oO ULeW [t] SLLa*LNOLAVYED’ 3Svas Zt 39d 


¢! 
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CLEARA 
CLEARATOASPACES 
CLOSEA 

COL 

DIM 
DISABLEALENGTH 
ENABLEALENGTH 
ESC 

ET 1IADEMO 

NORMAL 

OPENA 

PROTECT 
PROTECTASUBMODE 
READA 
READABUFFER 
READASTATUS 
REINITIALIZE 
REVERSE 

ROW 

SETABUFFER 
SETAMAXAPAGEANO 
SETAPAGEASIZE 
SMAPAGEMODE 
STARTAFIELD 
TERMAIO 
UNDERSCORE 
UNLOCK 
UNPROTECT 
WRITEA 


Literal 
Literal 
Literal 
Define 
Literal 
Literal 
Literal 
Litera} 
Proc 
Literal 
Literal 
Literal 
Literal 
Literal 
Literal 
Litera) 
Literal 
Literal 
Define 
Literal 
Literal 
Literal 
Literal 
Literal 
Proc 
Literal 
Literal 
Literal 
Literal 


GLOBAL MAP 


%000002 
%000111 
%000001 


$1 + %37 


%000041 
%000012 
%000105 
%000033 
%002171 
%000040 
%000000 
%000140 
%000127 
%000003 
%000074 
%000136 
%000161 
%000044 


$1 + %37 


4000021 
%000160 
%000164 
%000010 
%000035 
%000504 
%000060 
%000142 
%000100 
%000004 


18FEB87 


19:52:32 


v/ 
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ENTRY POINT MAP BY NAME 
SP PEP BASE LIMIT ENTRY ATTRS 


00 003 001423 004000 003614 M 
00 002 o000004 001422 000510 Vv 


NAME 


ET 1ADEMO 
TERMAIO 


LOAD MAPS 


DATE 


18FEB87 
18FEB87 


18FEB8S7 


TIME LANGUAGE SOURCE FILE 


19:52 TAL 
19:52 TAL 


$BASE.GRAYTGU1.ET1S 
$BASE.GRAYTGU1.TALLIB 


19:52:32 


¢/ 
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BINDER - OBJECT FILE BINDER - T9621COO - (15JUL87) 
Object file name is $BASE.GRAYTGU1.OBJECT 
Object file timestamp is 18FEB8S7 19:52:32 


BINDER AND COMPILER STATISTICS 


SYSTEM \FOXII 


Number of Binder errors = 0 

Number of Binder warnings = 0 

Code area size = 3 pages 

Resident code size = 0 pages 

Data area size = 1 pages 

Extended data area size = O pages 

Top of stack = 0 words 

Number of code segments = 1 segment 

The object file will run on a TNS/II, but may not run on a TNS 
Number of compiler errors = 0 

Number of compiler warnings = 0O 

Maximum symbol table space used was = 87304 bytes 
Number of source lines = 2931 


Compile cpu time = 00:00:11 
Total Elapsed time = 00:00:40 


1 


18FEB87 


19:52:32 


PAGE 1 SBASE.GRAYTGUN.TXGEN38S [1] 
TAL - T9250C00 - (15JUL87) 
Date - Time 16FEB87 - 17:56:41 
1. 000000 0 O 7ERRORS 10, datapages 64, 
2:2 000000 0 O 
3. 000000 0 O 
4. 000000 0 QO ! 3.08 02/16/87 
5. 000000 0 O ! 3.07 02/12/87 
6. 000000 0 QO ' 3.06 02/11/87 
7. 000000 O O { 3.05 02/04/87 
8. 000000 0 Q- ! 
9. 000000 0 O ! 
10. 000000 0 QO ! 3.05 02/02/87 
11. oo0000 0 OQ ! 
12. oo0000 Oo O ! 3.05 01/29/87 
13. 600000 0 0O ! 
14. ooc000 0 QO ! 
15. 000000 0 O ! 
16. oo00000 O QO ' 
17. 000000 0 O ! 
18. 000000 0 0O ! 
19. 000000 0 O ! 
20. 000000 0 O ! 
21. 000000 0 O ! 
22. 000000 0 OQ ! 3.04 01/28/87 
23. 000000 0 O ' 
24. 000000 0 0 Hy 
25. 000000 0 O ' 3.04 01/28/87 
26. oo0cv000 0 O ! 
27. 000000 0 Q ! 
28. 600000 0 O ! 3.04 01/28/87 
29. 000000 0 QO § 
30. 000000 0 0O ! 
31 000000 0 O ! 3.04 01/28/87 
32 000000 0 O ! 
33. 000000 0 OG ! 
34. 000000 0 QO { 3.03 01/15/87 
35. 000000 0 0O 1 3.02 01/14/87 
36. 000000 0 O ' 3.01 01/13/87 
37. 000000 0 O ! 
38. oooo000 0 O ' 3.00 01/12/87 
39. 000000 0 O ' 2.04 12/10/86 
40. 000000 0 O ! 2.03 12/02/86 
41 000000 0 0O ' 2.02 10/14/86 
42 000000 0 O ! Caculate 
43 000000 0 QO ' 2.01 10/06/86 
44 000000 0 O ' 2.00 09/13/86 
45. 000000 0 OQ ! (random) 
46. 000000 0 O ! 1.00 277772727? 
47 000000 0 QO 


Source language: TAL - Target machine: 
Default options: On (LIST,CODE,MAP,WARN,LMAP) 


Tandem NonStop II System 
- Off (ICODE,INNERLIST) 


nocode, nowarn, symbols, inspect, columns 74 


7LMAP(loc,alpha), page "Program TXGENS, modified SLOADGEN with Think Time" 


Gerhard Huff. 
Nhnan Chu. 
Nhan Chu. 


Added support for interactive traffic 
Increase number of seeds to 40 max. 

New param RNSEED. Random number seeds 1-10. 
Gerhard Huff. Changed THREADATHINK to force a TASK DISPATCH 
if THINKATIME = 0, this fixes a problem when 
cunning RATE MAXIMUM. 

Changed handling of threads that have to wait 
because of MAXATXAOQUT exceeded. 
Numerous changes to prevent the 
to ‘overrun’ the test system and to avoid 

LCB shortage in the RTE. 

added MAXTERM parameter to limit the number 

of threads that are read from CONFIG and started; 
added MAXTX paramter to limit the number 

of transactions send to SIT concurrently; 

this should prevent resource problems 

on both systems; 

fixed the handling of toggle <3> to work as before 


Gerhard Huff. 


Gerhard Huff. load generator 


Gerhard Huff. Inserted logic to ABEND whenever an error 
30 (LCB allocation failure) is returned 
This should prevent that RTE system to get stuck 
Gerhard Huff. Changed WRITEALOGFILE to ‘ignore’ allocation 
failures in GENERAL POOL; it‘1l now drop a message 
but retry the next time. 
Gerhard Huff. Changed ALLOCATE/DEALLOCATEABUFFER to avoid 
recursive calls leading to a stack overflow 
and program abend. 
Gerhard Huff. Changed read from SCRIPT file from 40 bytes 
to ‘bufferAsize’ bytes to get all the data 
from script (52 bytes at the moment). 
Nhan Chu. Use ‘version’ define. 
Nhan Chu. Flush the last records of TXSTAT file to disc. 
Gerhard Huff. Changed ‘thread think’ing’ from SIGNALTIMEOUT 


to AWAITIO with delay time = timeout value 


Gerhard Huff. Changed TXLOG file to unstrucrured 

Nhan Chu. Add canceltimeout. 

Nhan Chu. Add eh after signaltimeout, DELAY param. 3###. 
Nhan Chu. Add TX100 to control the number of replayed tx’s. 
the ext sizes for txlog based on tx100. 

Nhan Chu. 200 bytes reply and move threads tcb’s into U31K. 
Nhan Chu. Enhancement for fixed arrival rate with Poisson 
arrivals or constant arrivals. 


Gerhard Huff. Original SLOADGEN. 


S$BASE.GRAYTGUN. TXGEN3&S 


000000 
000000 
600000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
o00000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
ocoo00 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
occoca 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


oo0o0ooooocomoocococoocoocoocooadco0coocoeocoocococomocoocoococo0coco0coc0o0oco0o0cecocoeo0co00000 


oooooo0ooomn°oeoeodooeooecoc0cdocooo0oo0ooooooodcooco0ooooo0cococo0co°ccoo0c00c0~Ceece0e0o00cna 


Pa Genera 


} 


define txgenrvs = ["vs 3.08"]#; ! 


define 


intaddr (item) 
needsAwork 
ioAcomplete 
ioApending 
interactive 


sysmsght ime 
sysmsgAbreak 
sysmsgAstartup 


setup 


guardianAdevtype 
guardianAdevsubtype 


Guardian device types 


literal 


guardianAtypeprocess 
guardianAtypereceive 
SuardianAtypedisc 
gQuardianAtypetape 
gQuardianAtypeprinter 
guardianAtypeterm 
QuardianAtypecard 
guardianAtypex25ptp 
guardianAtpyettmp 


Open flags definitions 


literal 


literal 


openAnowait 
openAshared 
openAexclusive 
openrprotected 
openAreadwrite 
openAreadoanly 
openAwriteonly 
openAgetmsg 


true 
false 
nil 


Wow ou 


0 
QO, 'should be 


numberAbusy 
netAoutAofAarder 
numberAnotAobtainable 


name” 
constaA 
noneA 
stra 


«ew we 


0 
1 
2 
3 


NN Hone 


hoa wou WW a woot 
NOOOMUAGNO 


~~~ 2 we ew ew 6 ee 


uouou 


definitions and DEFINES 


shown in HELP 


(@item ‘>>’ 1)#, 
flags.<0O>#, 
flags.<1>#, 
flags.<2>¢, 
flags.<3>4, 


flags.<0O>¥#, 


<4:9>#, 
<10:15>4; 


*BOOCCOCGOCONCCOCOO!I, 
%BO000000000000000, 
%B0000000000010000, 
%B0000000000110000, 
*BOOOOO00000000000, 
%*B0000010000000000, 
%B0000100000000000, 
*B0 100000000000000; 


.04 


.08 


.00 


16FEB87 
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000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
0c0000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
oO0000 
oo0000 


oggooocoooocooococeeceec0ce0c00cce0cCceCcococeoco0ccoe0cece0ceececoacoc0cecocaccoao0occoc00ce0cece00000 


=~-0O0O00000-—"-4-72]000//7++-]-000 000 0 0000 0C0000C0C00C—0C0C— 0C0O 0C0C—0CC 000000 


paramAdefault 
paramAconfig 
paramAscript 
PparamAlog 
paramAarrival 
paramAtxrate 
paramAtxlog 
paramAtx100 
paramAde lay 
paramAmaxterm 
paramAmaxtx 
paramArnseed 
maxAkeyword 


Henne en bn tbo 


—~-—-=-O0NOUBRWN—O 


sa m= Or - © we ew ew we ew ew 
. 


string paramAkeywords = ‘PP’ := 


[6, namer “CONFIG 

» Namea "SCRIPT 

» Named "LOG 

> stra “ARRIVAL 
» consta “TXRATE 
>» Namer "TXLOG 

» CONSTA "TX100 

» consta “DELAY 


ve we ew ee we 


AMoown~ Wo 


7, constA , “MAXTERM 
5, constA , "MAXTX 


6, constA , "RNSEED 
0}; 


struct startuprmsgrA (*); 
begin 
int id, 


string 
parm [{0:527]; 
end; 


struct startupAparamAA (*); 
begin 
int name [0:11], 


value = name, 
flags; 
string sAname = name; 


end; 


struct logfileAr (*); 
begin 
struct msg4q; !queue 
begin 


definitions and DEFINES 


a ee ae ee a ee 


{Constant ,Random, Maximum} 

tx rate in tps * 10 

tx statistics file 

max 100’s of tx to be replayed 
startup delay between term in 
.01 seconds. 

max number of threads (terminals) 
to start 

limit for the number of TX’s 
outstanding 

Random number seed = 1 to 40 


WWWWNHNNNNAD 


WWWWWNHNNNNEKL 
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000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
oooo00n 


ooo0o0ccoocoecoocoooo0oc0coocoeodeocococooocoooco0coc9d00c00cec0coeceococnoo0co0o0co0oooe0c 0000000 


oOo0o0o0-]--000000 00 00-—]--000009OCOCOCOOCOD0OH KH HANNN HK KH OOOH KH HANNNNNNH|NNDND 


int 
int 
end; 
struct 
begin 
int 
int 
int 
int 
int 
end; 


[1] 


succ; 
pred: 


dev; 


filename 
filenum; 
type; 
errors 
bufaddr; 


int active; 
int ioAbusy; 


end;- 


struct logAmsgAA (*); 


begin 
struct 
begin 
int 
int 
end; 


queue; 


SuCC; 
pred; 


int length; 
int data; 


end; 


General definitions and DEFINES 


! same as JOAdevAA 


[0:1 


11; 


! not used here 


ee ae a eae ea ee ee 


define generalApoolAstart 


generalApoolAsize 


literal generalApoolAsize 


%100000d¥#, starting at 16 kW 
%100000d# ; length 16 kW 


= 2*(08*1024); !08 pages=16384 bytes! 


struct generalApoolAA (*); 


int header [0:19]; 


int status; 


Define Queuerany (q) 
Queuerempty (aq) 


struct queuer” (*); 


(q.succ <> eq)#, 
(q.succ = @q)#; 


2.00 
2.00 


3.01 
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oco000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000090 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
900000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
900000 
000000 
000000 
000000 
000000 
000000 
000000 


jaekekeokelekekekeken oleh one kek eh eke oko kek eke olekek ek ek Oe Oke oko ole one kee Shek eke ek ek Okeke eke kek eke ekeke) 


Pes] = HOODOO OO a ge BH BP wes newts st BNNNNHHKNNNHHKHOTCO---aoq0c0c0co00000d0 


literal maxAthreads 
bufferAsize 


threadAstateAclosed 
threadAstateAready 
threadAstateractive 
threadAstateAstopping 
threadAstateAthink 


struct configArecordAA (*); ! config file record 


begin 
string terminalAname [0:15]; 
int terminal = terminalAname; 
end; 


struct tcbAA (*); ! thread control 
begin 
struct ready’q; !queuerdA 
begin 
int succ; 
int pred; 
end; 
struct terminal; 
begin 
string nameA [0:23]; 
int name = name”; 
int fnum; 
end; 
int index; 
int state; 
int substate; 
int flags; 
int lastAstate; 
int lastAsubstate; 
int lastAloc; 
int lastAfnum; 
int lastAerror; 
int lastAcount; 
fixed sendAtimestamp; ! 
fixed recvAtimestamp; ! 
int(32) thinkAtime; ! 
fixed endAtime; ! 


tou neu 
N 


nou 
N 
Oo 
oO 
oO 
< 
me 
0) 
Ww 


4; 


block 


lay out 


4-word timestamp of input time 
4-word timestamp of output time 


interval until 
absolute time 


int datarbuffer [0: ((bufferArsizet1)/2) - 1]; 


end; 


struct iaAdataAA (*); 
begin 
string fl; 
string account [0:11]; 
string f2; 
string teller [0:11]; 
string f3; 


next send (unit=.01s) 
in tics when think ends 


WG &® 


.01 


.00 
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277. 000000 O 1 string branch [O:11]; 
278. 000000 0 1 string f4; 
279. 000000 0 1 string amount [0:11]; 
280. ooo0og00o Oo 1 end; 
281. oo00000 0 O 
282. 000000 0 O struct iaArespAA (*); 
283. 000000 Oo Oa begin 
284. 000000 oO 1 int length; 
285. 000000 Oo 1 int termAname [0:11]; 
286. 000000 0 1 fixed startAtime; 
287. 000000 0 1 int (32) xtime [0:1]; 
288. 000000 O 1 fixed respAtime = xtime; 
289. 000000 Oo #1 end; 
290. 000000 0 O 
291. 000000 0 O (SS aS asso SSR SSeS Res5 ! 
292. 000000 0 QO ! IO device definitions ! 
293. 000000 0 OO LSS SS SSS SS SSS -SSes-++=> ! 
294. 000000 0 O 
295. 000000 0 O ! IlO0-devices 
296. 000000 a O 
297. 000000 0 O literal receiveAfilear = 0, configrfilea = 1, logAfilea = 2, 
298. 000000 0 Q traceAfilea = 3, hometermAfileA = 4, terminalAfileaA = 5, 
299. 000000 0 QO serveraAfilea = 6, tfileAfiles” = 73 
300. 000000 0 O 
301. 000000 0 O ! TO-operations 
302. 000000 Oo oO 
303. o00000cg 0 O define jodevAcheck (f, n, o) = 
304. oo0000 a 0 if <> then 
305, uoouog vu OV cail iodevAtailure (t, n, o)#; 
306. 000gcg00 O 0 
307. 600000 0 0 literal openAattempt = 0, 
308. 000000 0 Oa readAattempt =i, 
309. ooo000 a Oo writeAattempt = 2, 
310. 000000 a O wrAattempt = 3, 
Sil. 000000 a0 9O controlAattempt = 4, 
312. 000000 0 0 await ioAdone = S; 
313. 000000 0 O 
314, 000000 0 Oa struct jiodevAA (*); 
315. 000000 0 QO begin 
316. 000000 0 1 string named [0:23]; 
317. 000000 0 1 int filename = name”; 
318. 000000 0 1 int filenum; 
319. 000000 Oo 1 int type; 
320. Qoo00000 0 1 int error; 
321. 000000 Oo 1 int bufaddr; 
322. 000000 Oo 1 end; 
323. 000000 0 O 
324. o0000co0 ao 0 a a al at ! 2.00 
325. od006G06 dG O i TR STATS reiated defines! 2.06 
326. 000000 0 0O SSS SSS SSS Soe See ! 2.00 
327. 000000 0 Q 
328. 000000 0 O ?SOURCE TXTAL 
Source file: [2] STURF .NVCTXGEN. TXTAL 1Z2JAN8B7 - 09:43:18 
1. 000000 O ie) ! SCHEMA PRODUCED DATE - TIME : 1/12/87 09:43:13 
2. 000000 0 Oo ?SECTION TX 
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000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
ocoo00 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


qgo0o0oo0o0o0c0occg0coce0ceceocoococooco0co0c0ococ00ceQAeceo000000 


Record TX created on 01/12/87 at 09:43 

The following record is written by the program TXGEN for each 
ET1 transaction sent and received to/from the SUT system. 

The program TXREP scans these records to produce performance 
statistics about the ET1 benchmark. 


25Sep86. Nhan Chu. 


18Nov86. Make UNSIGNED binary 8. 
12Jan87. Gerhard Huff: term-count, term-index binary 16, added filler 


STRUCT TXADEF (*); 
BEGIN 

! number of terminals ( <= 250 ) 
INT TERMACOUNT; 

! terminal id 
INT TERMAINDEX; 

! user-specified tx rate (tps * 10) 

! =0 max rate, pos=constant, neg=random 
INT ARRIVALARATE; 

! 4-word timestamp of input time 
FIXED SENDATIMESTAMP; 


interval (ms) until the next arrival 
INT(32) NEXTAARRIVALATIME; 

tx response time in milliseconds 
INT(32) RESPONSEATIME; 

filler to bring record up to 32 


FILLER 10; 
END; 
3.00 
literal txstatAbufsize = 4096, 3.00 
txstatAnumrecs = txstatAbufsize / $len (txAdef); !' must be 128 3.00 
3.00 
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000354 
000354 
000354 
000354 
000354 
000354 
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000354 
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aeielelokekekelaieakek ek ehekekehekekek el ek ek eheken en e8O2e kek Oh ek eh enekehen Oleh ele hehekelele sen ek ek ener ene keke ener) 


Sele lekelatateletetelele hele ke kesekekes el ekekekeh ele hetero elele se heheh eheleker eek olor eke kekekeken er ekekek ekek oe! 


struc 
struc 
struc 


struc 
int 

struc 
struc 


struc 
struc 
struc 
struc 
struc 
struc 
int 

int 


int 
int 
int 
int 
int 
int 
int 
fixed 
int 


int 
int 


int(3 
int 


int (3 
int(3 


int(3 


int 


General 


-activeAthread (tcbAA); 


t readyAlist 
t timeAlist 


t suspends”! 


t .threads ( 
.threads ( 


(queuerr); 
(queuers); 
ist (queuerr) ; 


tcbAr) 


[O:maxAthreads-1]; 
tcbAA) := %*070000; 
t generalApool 


definitions and DEFINES 


!'needs 34750 w (~35pages, 
(generalApoolAA); 


t .startupAparameter (startupAparamAAr) [0:maxAkeyword]; 


t receive 
t hometerm 


t config 
t script 
t logfile 
t txtog 
-txstat 


CiodevAA); 
CiodevAA); 
CiodevAA); 
CiodevAA); 
ClogfileAA); 
CiodevArA) ; 
(txAdef); 


txstatArecs; 


-scriptAbuffer [0:2047]; 


shutdown; 
startup; 
logtenable; 
nextAthread := Q; 
activeAthreads; 
switchaA3; 
startAtime; 
startAdelay; !in .01 s! 
rate := 0; 
arrivalAtype := Q; 
2) meanAperAthread; 
threadAcount; 
2) seed! := 82848229D; 
2) .seed [0:39] := [ 
78126602D, 1348540613D, 
1709501965D, 5245048280, 
2099774560D, 1736406066D, 
13521884900, 351827176D, 
1077339412D, 791180181D, 
614446747D, 199010403D, 
12995278020, 436218352D, 
862847618D, 8557037980, 
1; 
2) txmax, 
txcount := Qd; 


maxAtxAout; 


! pointer to current stat 
! number of 


' to compute 


log records 


jog record 


in buffer 


length of run 
' time between starting each thread 


! user-specified tx rate (tps*10) 


! O=>think=0; 


' mean 


inter-arrival 


! =activeAthreads 


{ random number seed 
' these seeds generate numbers 
' that are 1 million apart 


1075807989D, 
7967742360, 
858298972D, 
622438816D, 
1865168993), 
14131414360, 
1249141089D, 
219155865D, 


1418823682D, 
743139600, 
1598162604D, 
617360608D, 
1905152688D, 
1794410409D, 
4040211220, 
17620543440, 


1=>constant; 


time 


2=>random 


in ms 


25918206D, 
87021785D, 
1855425428D, 
1776878068D, 
746303301D, 
732784251D, 
20845538870, 
1698349082D 


' max number of tx to be replayed 
! current number of replayed tx 


! max number of transaction to be send 


36 resrvd)3.01 


2.00 
3.00 
3.00 


2.00 


2.00 
2.03 


2.00 
2.00 


2.00 
2.00 


2.00 
3.06 
3.06 
3.07 
3.07 
3.07 
3.07 
3.07 
3.07 
3.07 


°3.07 


3.06 


2.02 
2.02 


3.05 
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392. 
393. 
394. 
395. 
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397. 
398. 
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401. 
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000354 
000354 
000354 
000354 
000354 
000354 
000554 
020554 
020554 
020554 
020554 
020554 


oo0c0oceoodoo0o000 


oooooo0oo0o0°00o00oo 


General definitions and DEFINES 


{ concurrent 
int txAoutstanding := 0; ! number of TX send to 
int cancelAtimerAdone false; 
int .receiveAbuffer [0:127]; 


string .generalApoolAbuffer 


int interAactiveAdata := 
struct .iaAdata (iaAdatarA) 
struct .iaAresp (iadsresprr) 


[O0:generalApoolAsize-1]; 


false; 
= receiveAbuffer; 
receiveAbuffer; 


wot 


SUT 
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SBASE.GRAYTGUN.TXGEN3SBS [1] Forward deciaratisons 

020554 0 O ?NOMAP 

020554 0 0O sss === = s RANDOM NUMBERS wrt rrr rrr rrr tt rrr rr rrr tr rene 
020554 0 O 

020554 0 QO proc err (error); 

ooo000 1 O int error; forward; 
000000 0 OQ real proc randf (seed); 

000000 1 O int(32) .seed; forward; 
000000 Oo O int proc randint (i, j, rand); 

000000 1 0 int i, j; real rand; forward; 
000000 oO O int(32) proc negexp (mean, rand); 

000000 1 O int(32) mean; real rand; forward; 
000000 0 O int(32) proc sampleAarrival (mean, arrivalAtype) ; 

ooo000 1 O int(32) mean; int arrivalAtype; forward; 
000000 QO O 

g00000 0 0O Scale ac lag ERROR REPORTING & LOG FILE ~-~~-~----3~7--- 7-7-7777 ee 
000000 0 0O proc logAprint (fmt,pl, p2, p3, p4, pS, pb, p7, pB, pS, pi10, 

ooo0oo 1 0 p11, p12, p13, p14) VARIABLE; 

000000 1 O 

000000 1 O string .fmt; ‘format string 

000000 1 O int P1,92,p3,94,p5,p6,p7,p8,p9,pl0, !parameters 

o0o0c000 1 O p11,p12,p13,p14; 

000000 1 0 forward; 
ooo0000 Oo O proc logfileAiocomplete (error); 

000000 1 OQ int error; forward; 
oo0000 Oo Oa proc writeAlogfile (data, length); 

gooo0g 1 Q int .data, length; forward; 
000000 a0 O proc initAlogfile; forward; 
000000 0 O 

000000 0 O Serer sca o GENERAL POOL ----------------------------- 5 
000000 0 O 

oco0ce G6 CG int proc allocateAbuffer (size); 

000000 1 =O int size; forward; 
000000 0 O proc deallocateAbuffer (buffer); 

000000 1 0 int .buffer; forward; 
000000 0 O proc initAgeneralApool; forward; 
000000 0 O 

000000 0 OQ 9 !----------- QUEUE" Sas - Ss SRS Ssh e te ost Sestsee sae Soe Stn aecsce Secs 
000000 0 O 

000000 0 0O int proc queuedAget (q); int .q (queuerA); forward; 
000000 0 O proc queuerput (q, newelem); int .q (queuerArA), .newelem (queuerA); 
000000 1 O forward; 
000000 0 QO proc queueAinit (q); int .q (queuerrA); forward; 
000000 G O 

000000 0 O LSS SSS aS THREAD STATES wrt rrr tr rrr rr rrr rr rr rrr rr rr rt rr rere 
000000 0 O ; 

000000 0 QO proc threadAclosed; forward; 
000000 0 O proc threadAready ; forward; 
000000 0 O proc threadAactive; forward; 
000000 0 0 proc threadAstopping; forward; 
000000 0 O proc threadAthink; forward; 
000000 0 O 

000000 0 0O La SSeS THREAD wr rrr rr rrr rrr rr er rrr rrr en ene 
000000 0 O 

000000 0 O proc assignAthread (tcb, record); 

Qg00000 1 O int .tco (tcbAA), .record (configArecordanr); forward; 
000000 0 O proc threadAawaitio (nextAsubstate); 

000000 1 O int nextAsubstate; forward; 


nN) 


NNNNMNNPNNN ND 


.00 


.00 
.00 
.00 
.00 
.00 
.00 
.00 
.00 
.00 
.00 


.00 
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000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
ooo000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
ooo0000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


COooo0o-o000c0c00ce0o0-0-0~-~0000 000 000-0 


qao0o0coocococo0oocoodoc0o0c0odco0000e00o00000o 


proc 


proc 
proc 


Forward declarations 


activateAthread (tcb); 
int .tcb (tcbAA); 
saveAthreadAstate; 
selectAthread; 
suspendAthread; 
processAthread; 
processAthreadAstate; 
initAthreads; 


INT (32) Proc buildAiotag (tcb, fileAtype) variable; 


Proc 


Proc 


proc 


int .tcb (tcbAA), fileAtype; 

iodevAfailure (f, name, operation) variable; 
int f, .mame, operation; 

jiodevAinit (dev,flags, sync, type) variable; 
int .dev (iodevAA), flags, sync, type; 
jioAwait; 


loadgenAinit; 

printAhelp; 

printAtimes (tsAstart, tsAstop); 
fixed tsAstart, tsAstop; 

txgen main; 


?NOLIST, columns 80, source $system.system.extdecs ( 


?MAP 


forward; 
forward; 
forward; 
forward; 
forward; 
forward; 
forward; 


forward; 
forward; 


forward; 
forward; 


forward; 
forward; 


forward; 
forward; 
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501. ogo0000 Oo O 7NOLIST 
532. 000000 0 O proc err (error); 2.00 
533. 000000 1 0 $ seen oe He ee eee 
534. 000000 1 O int error; 
535. 000000 1 O begin 
536. ooo0oo0 1 1 call debug; 
537. o0o000g0n1 1 1 end; 
ERROR Variable INT Direct L-003 
538. 000000 0 QO 
539. 000000 0 O real proc randf ( seed ); 
540. 000000 1 ie) L Ste Sa mS RS SSS SSS SS Sas 2.00 
541. 000000 1 O int (32) .seed; ! QO < positive number < 2**31-1 
542. 000000 1 O begin 
543. ooooo00 1 1 real rn; 
544. ooooo00 1 1 
545. ooo0o00 1 1 fixed(9) subproc RANDOM; 
546. 000000 2 1 begin 
547. 000000 2 2 literal a = 16807F, ! multiplier = 7**5 
548. 000000 2 2 m = 2147483647F; ' modulus = 2¥*¥*¥31 - 1 
549. 000000 2 2 fixed(0) z; ! 64-bit integer 
550. 000000 2 2 
551. 000000 2 2 z =a * $DFIX( seed, O ); 
552. 000010 2 2 seed := $FIXD( z := z - (z/m)*m );!modulo op must be done exactly 
553. 000037 2 2 return $scale( z, 9 ) / Mm; ' giving 9 digits of precision 
554. 000052 2 2 end; !subproc RANDOM! 
A Literal FIXED (0) %*000000 OG00000 000000 040647 
M Literal FIXED (0) *000000 O00000 077777 177777 
Z Variable FIXED (0) Direct $-003 
555. 000053 1 1 
556. 000053 1 1 do rn := $fltr( RANDOM ) / 1.0E+9 
557. 000054 1 ] until rn <> Q.0E0; 
558. QO00066 1 1 return rn; ! rn is in the open interval (0,1) 
559. 000070 1 1 end; !real proc randf! 
RANDOM Subproc FIXED (9) %000000 
RN Variable REAL (32) Direct L+001 
SEED Variable INT (32) Indirect L-003 
560. 000000 0 OG 
561, 000000 0 oO int(32) proc negexp ( mean, rand ); 2.00 
562. 000000 1 O PO mm mm ee ee re errr 
563. 000000 1 90 int (32) mean; 
564. 060000 i G6 reai rand; i random number between O:1(randf) 
565. 000000 1 O begin 
566. 000000 1 1 if mean < OD then call err ( !errAnegexpAmeanrlitAzero! O ); 
567. 000007 1 1 ! There is a possibility of overflow in the next expr. 
568. 000007 1 1 ! If so, scale ‘mean’. 
569. 000007 1 #1 return $dbir( $eflt( - mean ) * dlogA( $eflt( rand ) ) ); 
570. 000023 1 #1 end; !proc negexp! 
MEAN Variable INT (32) Direct L-O006 


RAND Variable REAL (32) Direct .-004 
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000000 
o0o0000c0 
000000 
000000 
000000 
000000 
000000 
000000 
000007 
000022 


—-=—= - O000000 


int proc randint( i, 
int i, 
me 
real rand; 
begin 


if j <= i then call 


return i + $int( $fit( j - i + 1 


RANDOM functions 


! lower bound 
! upper bound 


! random number between O:1(randf) 


err( terrAubAltaAib! O ); 


!int proc randint! 


Variable 
Variable 
Variable 


INT 
INT 
REAL (32) 


) * rand ); 


Direct 
Direct 
Direct 


L-006 
L-O005 
L-004 


.00 
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582. occ00c 
583. oooco0 
584. 000000 
585. 000000 
586. 000000 
587. 000000 
588. 000000 
589. 000000 
590. 000002 
591. 000002 
592. 000002 
593. 000004 
594. 000004 
595. 000006 
596. 000006 
597. 000015 
998. 000015 
599. 000015 
600. 000016 
601. 000032 
602. 000032 
ARRIVALATYPE 
MEAN 


Sis ats a oa a eee! Soe Ge ee ee ee es ED 


i?) 
NMNMNN———-O0O00Q0 


—_— 


QO 
Nm 
N 


—=—-NNND 


sampleAarrival Procedure 


int(32) proc sampleAarrival (mean, arrivalAtype); 


int(32) mean; ! inter-arrival time 
int arrivalAtype; ! O=>think time=0, 1=>constant,2=>rand 
begin 


case arrivalAtype of 
begin 
! Q => zero think time 
return Od; 
! 1 => constant arrival with mean ‘mean’ 
return mean; 
! 2 => random arrival, ie exponential with mean ‘mean’ 
return negexp (mean, randf (seed1)); 
otherwise 
! improve 
call debug; 
end; 


end; !int(32) proc sampleAarrival! 


Variable INT Direct L-003 
Variable INT (32) Direct L-005 
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604. 000000 0 0 !BEEREABAEHHHAHHAAEARAEHEAAHAAAAERKEHAARARHABHRRARHRAAAARAAARHAARA ARAB 
605. 000000 0 oO !# # 
606. 000000 0 O '# FORMATPRINT # 
607. 000000 0 O '# # 
608. 000000 0 O '# FORMAT STRINGS ARE CONTAINED WITHIN A READ/ONLY STRING ARRAY. # 
609. o000co 0 O '%# EACH LINE OF THE FORMAT IS ENDED WITH A NULL (0) BYTE, AND # 
610. 000000 0 O '# THE END OF THE STRING ARRAY IS MARKED BY AN (%377) BYTE. # 
611. 000000 0 O '# # 
612. 000000 0 O !% FIELD INDICATORS ARE: # 
613. 000000 0 O '# # - signed decimal # 
614. 000000 0 QO '# & - unsigned decimal # 
615. 000000 0 0 !'# % - octal # 
616. 000000 0 O '# ‘= string (blank-fill to field length) # 
617. 000000 0 O '# \ - string (no blank fill) # 
618. 000000 0 QO '# ?  - escape character # 
619. 000000 0 OQ '# # 
620. 000000 0 QO !'% FOR NUMERIC FIELDS, AN INTEGER VALUE SHOULD BE PASSED. # 
621. 000000 Oo Oa '# FOR STRING FIELDS, THE ADDRESS OF THE STRING ARRAY SHOULD BE # 
622. 000000 0 oO '# PASSED. # 
623. 000000 0 O '# # 
624. 000000 0 O EHH FHEAAEHAHAEAREHAELHAAAAAARAAAEABAAEAEARAREARHAAAARAR AAR AR ARR 
625. 000000 0 O 

626. 000000 0 O PROC logAprint (fmt,p1, p2, p3, p4, p5, p6, p7, p&, pg, plod, 

627. oocece 1 oO p11, pi2, p13, p14) VARIABLE; 

628. 000000 1 0 

629. 000000 1 QO STRING .fmt; !format string 

630. 000000 1 O INT P1,p2,p3,p4,p5,p6,p7,p8,p9,p10, !'parameters 

631. 000000 1 Q p11,p12,p13,p914; 

632. 000000 1 0 

633. 000000 1 0 BEGIN 

634. 000000 1 1 

635. 000000 1 1 STRING buffer[0:132], 'print buffer 

636. 000000 1 #1 -bufptr, 'current position in buffer 
637. 000000 1 1 -P3 'working ptr 

636. 000000 1 1 INT -parm := epl, ‘current parameter 

639. 000000 1 1 save, ‘saved address 

640. 000000 1 1 i: indexing variable 

641. ooo000 1 #1 

642. 000000 1 #1 

643. 000000 1 1 if startup < 2 and not logAenable then return; 

644. 000012 1 7 

645. 000012 1 1 DO 

646. 000012 1 1 BEGIN 

647. 000012 1 2 

648. 000012 1 2 STACK @fmt,0; CODE (SBU %660); !SCAN fmt UNTIL O -> @p; 

649. 000015 1 2 STORE @p; 

650. 000016 1 2 

651. 000016 1 2 STACK @buffer, @fmt, @p’-‘e@efmt+2; 'buffer’:=’fmt FOR ep’-’@efmt+2 
652. 000025 1 2 CODE (MOVB %67): 

653. 000026 1 2 

654. 000026 1 2 efmt := @p[1]; 

655. 000031 1 2 @bufptr := ebuffer; 

656. 000034 1 2 

657. 000034 1 2 WHILE bufptr DO tcheck for format characters! 
658. 000036 1 2 

659. 000036 1 2 IF bufptr = "#4" OR ! signed decimal integer! 
660. Qoo00036 1 2 bufptr = "&" OR ‘unsigned decimal integer! 
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661. 
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683. 
684. 
685. 
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692. 
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697. 
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701. 
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703. 
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711. 


712 


713. 


714 


715. 
716. 
717. 
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GO0036 i Z bufptr = “%* THEN iunsigned octai integer! 
000047 1 2 BEGIN 

000047 1 3 SCAN bufptr WHILE bufptr -> @p; 

000053 1 3 IF bufptr = "“#" AND parm < O THEN 

000061 1 383 BEGIN 

000061 1 4 bufptr := "-"; 

000063 1 4 parm := -parm; 

ooo0066 1 4 @bufptr := @bufptr[1]; 

000071 1 4 END; 

000071 1 3 CALL NUMOUT (bufptr, parm, 

000071 1 3 IF bufptr="%" THEN 8 ELSE 10,@p’-’@bufptr); 
000106 1 3 @bufptr := @p; 

000110 1 3 @parm := @parm[1]; 

000113 1 3 END 

000113 1 2 ELSE IF bufptr = "‘" THEN !'character string (blank fill)! 
000117 1 2 BEGIN 

000117 1 3 @p := parm; 

000121 1 3 WHILE bufptr = "’" DO 

000124 1 3 BEGIN 

000124 1 4 IF p THEN 

000126 1 4 BEGIN 

000126 1 5 bufptr := p; 

000130 1 #5 @p := ep{1]; 

000133 1 5 END 

000133 1 4 ELSE bufptr := " "; 

000136 1 4 @bufptr := @ebufptr[1]; 

000141 1 4 ENO; 

000142 1 3 @parm := @parm[1]; 

000145 1 3 END 

000145 1 2 ELSE IF bufptr = "\" THEN !character string (no blank fill)! 
000151 1 2 BEGIN 

000151 1 3 @p := parm; 

000153 1 3 f Sse) 

000155 1 3 WHILE bufptr[i:=i+1] = “\" AND p[i] DO 

000167 1 3 bufptr{i] := pli]; 

000173 1 3 @bufptr := @ebufptr[il; 

000176 1 3 IF bufptr = “\" THEN 

000201 1 3 BEGIN 

000201 1 4 SCAN bufptr WHILE "“\" -> @p; 

000205 1 4 bufptr ’:=’ p FOR @buffer[132]’-’@p; 

000217 1 4 END; 

000217 1 3 @parm := @parm[1]; 

000222 1 3 END 

000222 1 2 ELSE !'no replacement field! 
000224 1 2 BEGIN 

000224 1 3 IF bufptr = "?"“ THEN ‘escape character! 
000227 1 3 bufptr ’:=’ bufptr{[1] FOR ebuffer[132]-ebufptr; 
000242 1 3 @ebufptr := @ebufptr[1]; 

000245 1 3 END; — 

000246 1 2 

000246 1 2 if startup = 2 then 

000251 1 2 CALL WRITE (hometerm.filenum, buffer, @bufptr’-‘@ebuffer) 
000264 1 2 else 

000265 1 2 call writeAlogfile (buffer, @bufptr ‘-‘ @buffer); 

000274 1 2 END 

000274 1 1 UNTIL bufptr[1t] = %377; 

000300 1 1 


17:56:41 


| 


PAGE 17  $BASE.GRAYTGUN.TXGEN38S [1] fprint PROCEDURE 16FEB87-—s«-: 17:56:41 


718. 000300 1 #1 END; ! proc fprint 
BUFFER Variable STRING Direct L+001 
BUFPTR Variable STRING Indirect L+104 
FMT Variable STRING Indirect L-022 
I ' MVariable INT Direct L+110 
P Variable STRING Indirect L+105 
P1 Variable INT Direct L-021 
P10 Variable INT Direct L-010 
P11 Variable INT Direct L-0O07 
P12 Variable INT Direct L-006 
P13 Variable INT Direct L-005 
P14 Variable INT Direct L-004 
P2 Variable INT Direct L-020 
P3 Variable INT Direct L-017 
P4 Variable INT Direct L-016 
P5 Variable INT Direct L-O15 
P6 Variable INT Direct L-014 
P7 Variable INT Direct L-013 
P8 Variable INT Direct L-012 
PQ Variable INT Direct L-011 
PARM Variable INT Indirect L+106 
SAVE Variable INT Direct L+107 
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720, 
721. 
722. 
723. 
724. 
725. 
726. 
727. 
728. 
729. 
730. 
731. 
732. 
733. 
734. 
735. 
736. 
737. 
738. 
739. 
740. 
741. 
742. 
743. 
744. 
745. 
746. 
747. 
748. 
749. 
750. 
751. 
752. 
753. 
754. 


DATA 
EXTRA 
LENGTH 
MSG 


Q 
WLENGTH 


759. 
756. 
757. 
758. 
759. 
760. 
761. 
762. 
763. 
764. 
765. 
766. 
767. 
768. 


$BASE.GRAYTGUN.TXGEN38S [1] LOGFILE procedures 16FEB87 

000000 0 O proc writeAlogfile (data, length); 

000000 1 0 |} qHn nnn naan nen -------------------- 

oooo0oo 1 (a) int .data, length; 

000000 1 QO begin 

000000 1 1 int .Q (queue), 

oooood0 1 1 : 

000000 1 1 msg (logAmsgfh), 

o0g0000 1 1 wlength, extra; 

ooo00oo 1 1 

000000 1 1 begin 

000001 1 2 if not logfile.active then return; ! 

000004 1 2 

000004 1 2 wlength := (length + 1) ‘>>’ 1; ! size in words 

000010 1 2 extra := Goffset (msg.data); 

000012 1 2 if (@msg := allocateAbuffer (length + extra)) = nil then 

000022 1 2 begin 

000022 1 3 == logfile.active := false; 3.04 

000022 1 3 Sra log4enable := false; 3.04 

000022 1 3 return; 

000023 1 3 end; 

000023 1 2 

000023 1 2 msg.data ‘:=‘ data for wlength; 

000030 1 2 msg.length := length; 

000033 1 2 msg.queue.succ := msg.queue.pred := nil; !initialize! 2.00 

000037 1 2 

000037 1 2 @q := intaddr (logfile.msgq); 

000043 1 2 call queueAput (q, msg); 

000047 1 2 if not logfile.ioAbusy then 

000051 1 2 begin 

000051 1 3 call write (logfile.dev.filenum, msg.data, length,, 

000051 1 3 buildAiotag (, logAfileA)); 

000065 1 3 logfile.ioAbusy ;:= true; 

000067 1 3 end; 

O00C067 1 2 end; !body 

000067 1 1 end; ! of msgAwrite 
Variable INT Indirect L-004 
Variable INT Direct L+004 
Variable INT Direct L-003 
Variable,10 STRUCT-I Indirect L+002 
Variable,4 STRUCT-I Indirect L+001 
Variable INT Direct L+003 

000000 0 QO 

000000 0 QO proc logfileAiocomplete (error); 

ooo00oo00 1 0 a as a a a aa Da a Ne el 

Qo00000 1 0 int error; 

000000 1 OQ begin 

oooo000 1 1 int .msgrq (queuerrA), 

000000 i 1 -msg (logAmsgA)A); 

oooo000 1 1 

o0o0o00co 1 1 subproc dequeueAmsg; 

000000 2 #1 begin 

000000 2 2 @msg := queueAget (msgrq); 

000004 2 2 call deallocateAbuffer (msg); 

000007 2 2 end; 

1 1 


000010 


17:56:41 


iy 


DEQUEUEAMSG 
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769. 
770. 
771. 
772. 
773. 
774, 
775. 
776. 
777. 
778. 
779. 
780. 
781. 
782. 
783. 
784. 
785. 
786. 


RROR 
SG 
SGAQ 


787. 
788. 
789. 
790. 
791. 
792. 
793. 


EVICE 
RROR 
ARAM 
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000010 
000011 
000015 
000017 
000020 
000022 
000022 
000024 
000032 
000033 
000037 
000037 
000041 
000041 
000057 
000061 
000061 
000061 


000000 
000000 
oo000co0 
ooo00o0 
000000 
000000 
000000 
000000 
000000 
000000 
000015 
000021 
000021 
000025 
000036 
000041 
000043 
000045 
000046 
000046 
000050 
000052 
000052 
000052 
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LOGFILE procedures 


begin 
emsg4q := intaddr (logfile.msg’q); 
logfile.ioAbusy := false; 


call dequeueAmsg; 
if error then 
begin 
logfile.active := false; 


while queueAany (msg4q) do call dequeueAmsg; 


end else 
if queueAany (msg4q) then 
begin 
emsg := msg4q.Succ; 


call write (logfile.dev.filenum,msg.data,msg.length,, 
buildAiotag (, logsfileA)); 


logfile.ioAbusy := true; 
end; 
end; 
end; !of msgANiocomplete 


Subproc %000000 
Variable INT Direct L-003 
Variable,10 STRUCT-I Indirect L+002 
Variable,4 STRUCT-I Indirect L+001 
proc initAlogfile; 
begin 
int error, 
-qQ := intaddr (logfile.msg4q), 
-device (iodevAA) := intaddr (logfile.dev), 
-param (startupAparamAA) := @startupAparameter [paramAlog]; 
begin 
if param.setup then 
begin 
logfile.dev.filename ‘:=’ param.name for 12; 
call iodevAinit(logfile.dev, openAnowait); 
call queueAinit (q); 
logNenable := true; 
logfile.active := true; 
end else 
begin 
log*tenable := false; 
logfile.active := false; 
end; 
end; 
end; ! of initAlogfile 
Variable,40 STRUCT-I Indirect L+003 
Variable INT Direct L+001 
Variable,32 STRUCT-I Indirect L+004 
Variable INT Indirect L+002 
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812. 
813. 
814. 
815. 
B16. 
817. 
818. 
819. 
820. 
821. 
822. 
823. 
824, 
825. 
826. 
827. 
828. 
829. 


DEFAERR 
START 
STATUS 


ADDR 
ALLOCAERR 
BUFASIZE 
SIZE 

TEMP 
XADDR 
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000045 
000047 
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000066 
000066 
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000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000030 
000031 
000034 
000043 
000044 
000044 
000046 
000050 
000067 
000071 
000073 
000074 
000074 
000100 
000102 
000102 
000102 
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GENERAL POOL procedures 


proc initAgeneralApool; 


begin 
int status; 
int .ext start := $udbl( @generalApoolAbuffer ); 
string defAerr = ’P’ ;= 


["Unable to define general pool, status ?####", 0, %377]; 


begin 


generalApool.status := definepool (generalApool.header, 


start, 


$dbI (generalApoolAsize)); 


if generalApool.status then 


begin 
call logAprint (defAerr, generalApool.status); 
end; 
end; 
end; 

Variable STRING Direct P+000 
Variable INT EXT Pointer L+002 
Variable INT Direct L+001 


int proc allocateAbuffer (size); 
int size; 
begin 

int (32) bufAsize;: 

int .addr, temp; 

int .ext xaddr; 


string allocterr = ‘PP’ ;:= 
{"Unable to allocate a buffer from general pool", O, %377]; 
begin 
bufAsize := $udbl (size); 
@xaddr := getpool (generalApoo!.nheader, bufAsize); 
if <> then 
begin 
temp := startup; 
startup := 2; ! print on HOMETERM, instead of LOGFILE 
call logAprint (allocAerr); 
startup := temp; 
return nil; 
end else 
begin 
@addr := $int (@xaddr ‘>>’ 1); ! word address in memory 
return @addr; 
end; 
end; 
end; !of allocate”*buffer 
Variable INT Indirect L+003 
Variable STRING Direct P+000 
Variable INT (32) Direct L+001 
Variable INT Direct L-003 
Variable INT Direct L+004 
Variable INT EXT Pointer L+005 
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857. 000000 0 O 
858. 000000 0 O proc deallocateAbuffer (buffer); 
859. 000000 1 O LSS SS SSeS SSS SSS ae Sse 
860. 000000 1 O int .buffer; 
861. 000000 1 O begin 
862. 000000 1 1 int temp; 3.04 
863. 000000 1 1 int .ext xaddr; 
864. 000000 1 1 string deallocAerr = ’P’ := 
865. oooc00 1 1 {"Unable to deallocate a buffer from general pool", 0, %377]; 
866. 000031 1 1 
867. 000031 1 ] begin 
868. 000032 1 2 @xaddr := ($udbl (@buffer)) ‘<<’ 1; 
869. 000036 1 2 call putpool (generalApool.header, xaddr); 
870. 000044 1 2 if <> then 
871. 000045 1 2 begin 
872. 000045 1 3 temp := startup; 3.04 
873. 000047 1 3 startup := 2; ! print on HOMETERM, instead of LOGFILE 3.04 
874. 000051 1 3 call logAprint (deallocAerr); 
875. 000070 1 3 startup := temp; 3.04 
876. 000072 1 3 end ; 
877. 000072 1 2 end; 
878. 000072 1 #1 end; !of deallocateAbuffer; 
BUFFER Variable INT Indirect L-003 
DEALLOCAERR Variable STRING Direct P+000 
TEMP Variable INT Direct L+001 
XADDR Variable INT EXT Pointer L+002 
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890. 
891. 
892, 
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IRST 
ECOND 


B96. 
897. 
898. 
899. 
900. 
901. 
902. 
903. 
904. 
905. 
906. 
907. 
908. 
909. 
910. 
911. 
912. 


AST 
EWELEM 


913. 
914. 
915. 
916. 
917. 
918. 
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QUEUE procedures 


Int .q (queuerr);: 
begin 
int .first (queuerr), 
-second (queue); 


begin 
@efirst := q.succ; 
@second := first.succ; 
q.succ := @second; 
second.pred := first.pred; 


first.succ = 
:= 0; 


first.pred 
return e@first; 
end; 
end; 
Variable,4 STRUCT-I Indirect 
Variable,4 STRUCT-I Indirect 
Variable,4 STRUCT-I Indirect 


Proc QueueAput (q, newelem); 


a a a a en we ew a ew we ee a ee 


int .q (queuerA), .newelem (queuers); 


int .last (queued); 
begin 


if newelem.pred and newelem.succ then ! 
Call debug; : 


@last := q.pred; 
q.pred := @newelem; 
newelem.pred := @last; 
newelem.succ := last.succ; 
last.succ := @newelem; 
end; 
end; 
Variable,4 STRUCT-I Indirect 
Variable,4 STRUCT-I Indirect 
Variable,4 STRUCT-I Indirect 
Proc QueueAinit (q); 
int G (queuerA) 3 
begin 
q.succ := q.pred := @q; 
end; 
Variable,4 STRUCT-I Indirect 


L+001 
L-003 
L+002 


link fields must be 0 


L+001 
L-~003 
L-004 


L-003 


3. 
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921. 
922. 
923. 
924. 
925. 
926. 
927. 
928. 
929. 
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000014 
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000023 
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000026 
000027 
000033 
000037 
000042 
000045 
000046 
000047 
000047 
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proc threadAclosed; 
begin 
int error; 
int(32) tag; 
struct .dev (iodevAA); 


THREADASTATE procedures, 


*#* THREADACLOSED *** 


begin 
case activeAthread.substate of 
begin 
begin ! 0, open terminal 
dev.filename ’:=’ activeAthread.terminal.name for 12; 
call iodevAinit (dev, (capenrAexclusive + openAnowait), O, 
QuardianAtypex25ptp); 
call iodevAinit (dev, openAnowait, 
if dev.error then ! abort thread 
begin 
call saveAthreadAstate; 
activeAthread. lastAfnum := dev.filenum; 
activeAthread.lastAerror := dev.error; 
activeAthread.state := threadAstateAstopping; 
activeAthread.substate := 0; 
return; 
end else 
begin 
activeAthread.terminal.fnum := dev.filenum; 
activeAthread.state := threadAstateAready; 
activeAthread.substate := 0; 
end; 
end; ! 0 
otherwise call debug; 
end; ! of case substate 
end; ! of proc body 
end; !of proc threadAclose 
Variable,40 STRUCT Indirect L+004 
Variable INT Direct L+001 
Variable INT (32) Direct L+002 
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957. 
958. 
959. 
géo. 
961. 
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964, 
965. 
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968. 
969. 
970. 
971. 
972. 
973. 
974, 
975. 
976. 
977. 
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979. 
980. 
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ERROR 
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(=) 
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proc threadArea 


begin 
case acti 
begin 
begin 
tag 
cal 
cal 
end; 


begin 
if 
beg 


end 
beg 


end; 


end; 


otherw 
end; !of 
end; 
end; 'tof proc t 


Variable 
Variable 


threadASTATE procedures, **¥* THREADAREADY *** 


dy; 


veAthread.substate of 


! 0, connect to terminal, (X25 circuit) 


:= buildAiotag (activeAtnread, terminalAfileA); 

1 control (activeAthread.terminal.fnum, 17,, tag); ! init call 
1 threadAawaitio (1); ' to circuit 
! 0 

! 1, connected to X25 line 
not (error := activeAthread.lastAerror) then 

in 
activeAthread.state := threadAstateAactive; 
activeAthread.substate := 0; 
! the following improvement will brings the SUT 2.00 
' system faster towards a steady-state: 2.00 
! terminals start 500 ms apart 2.00 
activeAthread.thinkAtime := $dbl (activeAthread. index) 2.00 
* $dbl (startAdelay); ! .5s between each thread 2.00 

activeAthread.state := threadAstateAthink; 2.00 
activeAthread.substate := 0; 

else 

in 


call saveAthreadAstate; 
activeAthread.state := threadAstateAstopping; 
activerthread.substate := Q; 


! 1, connected to terminal 


ise call] debug; 
case substate 


nreadAready 
INT Direct L+003 
INT (32) Direct L+001 
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999. 
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NOTAOK 
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proc threadAactive; 
begin 
int(32) tag; 
{nt error, count, i; 
int(32) responseAtime, nextAarrivalAtime; 


int subproc writeAstat; 


literal OK = -1, notAOK = Q; 
txstat.termAcount : threadAcount; 


activeAthread. index; 
case arrivalAtype of 


txstat.termAindex 
txstat.arrivalArate 


begin 
!0 = maximum ! 0; 
{1 = constant! rate; 
'2 = random ! -rate; 
end; 


txstat.sendAtimestamp 
txstat.nextAarrivalAtime 
txstat.responseAtime 


nextAarrivalAtime; 
responserAt ime; 


txstatArecs := txstatArecs + 1; 
if txstatArecs < txstatAnumrecs then ! space in buffer? 
begin 


@txstat := @etxstat + $len (txAdef)/2; 
return OK; 


end else 

begin ! buffer full, write it out and reset pointers 
txstatArecs := 0; 
@etxstat := txlog.bufaddr; 


! write WAITED and buffered to txlog file 

call write (txlog.filenum, txstat, txstatAbufsize); 
if <> then 

begin 


call iodevAfailure (txlog.filenum, txlog.filename, 


writeAattempt); 
return notAOK 
end else 
return OK; 


end; 

end; 
Literal INT %O00000 
Literal INT %177777 


THREADASTATE procedures, *** THREADAACTIVE 


activeAthread.sendAtimestamp; 


* a * 
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THREADASTATE procedures, **£ THREADAACTIVE *** 


subproc wakeAallAwaiters; 
begin ! wake all other waiting tasks to stop themselfs 
while queueAany (timeAlist) do 
call activateAthread (queuerget (timeAlist)); 


while queueAany (suspendAlist) do 
call activateAthread (queueAget (suspendAlist)); 
return; 
end; 


begin 

error := activeAthread.lastAerror; 

case activeAthread.substate of 

begin 

begin ! 0, read TX from script file, remember SCRIPT is waited 
if (Sswitches.<3> <> switchA3) OR (txcount >= txmax) then 
begin !Stopping is in order! 
call saveAthreadAstate; 


activeAthread.state := threadAstateAstopping; 
activeAthread.substate := 0; 
call wakeAallAwaiters; 
return; 
end; 


if interAactiveAdata then 


begin 
interAactiveAdata := false; 
activeAthread.interactive := true; 


activeAthread.dataAbuffer ‘:=’ 
jaAdata for $len (iaAdata) bytes; 


activeAthread.substate := 1; 
return; 
end; 
if txAoutstanding >= maxAtxAout then ! SUT flooded already 
begin ! wait and try later 
call queueAput (suspendAlist, activeAthreagd) ; 
call threadAawaitio (0); ! restart in same 
return; ! substate 
end; 
txcount := txcount + 1d; 
call read (script.filenum, 


activeAthread.datarbuffer, 
bufferAsize, count); 
if <> then 
begin 
call fileinfo (script.filenum, error); 
activeAthread.lastAerror := script.error := error; 
activeAthread.lastAfnum := script.filenum; 
call saveAthreadAstate; 
activeAthread.state := threadAstateAstopping; 
activeAthread.substate := 0; 
call wakeAallAwaiters; 
end else 
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THREADASTATE procedures, *** THREADAACTIVE *** 


activeAthread.substate := 1; 
end; ! 0 


begin ! 1, send TX to terminal line (X25 circuit) 
tag := buildAiotag (activeAthread, terminalAfileA); 
call writeread (activeAthread.terminal.fnum, 
activeAthread.dataAbuffer, 100, 200,, tag); 
activeAthread.sendAtimestamp := juliantimestamp; 
txAoutstanding := txAoutstanding + 1; 
if $switches.<5> then 
begin 
stack activeAthread.terminal.fnum; 
code (ssw); 


end; 
call threadAawaitio (2); 
end; {4 


begin ! 2, received TX reply from terminal line 


txAoutstanding := txAoutstanding - 1; 
if queuerany (SsuspendAlist) then ! someone suspended ?? 
call activateAthread (queuerAget (suspendAlist)); 


if not error then 


begin 
responseAtime := $dbl( activeAthread.recvAtimestamp - 
activeAthread.sendAtimestamp ) / 1000d; !in ms! 
nextAarrivalAtime := sampleAarrival ( meanAperAthread, 
arrivalAtype ); 
if rate = 0 !max rate! then 
activeAthread.thinkAtime := Od 
elise ! unit is 0.01s ! 


activeAthread.thinkAtime := ( nextAarrivalAtime - 


responseAtime ) / 10d; 
if writeAstat !OK! then 
begin 
activeAthread.state := threadAstateAthink; 
activeAthread.substate := 0; 
end else ! writeAstat not OK ! 
begin 
call saveAthreadAstate; 
activeAthread.state := threadAstateAstopping; 
activeAthread.substate := 0; 
end; !| writeAstat ! 
if activeAthread.interactive then 
begin 
activeAthread.interactive := false; 
jiaAresp.length := activeAthread.lastAcount; 
jaAresp.termAname ’:=’ activeAthread.terminal .name 


for 12; 
ja4resp.startAtime activeAthread.sendAtimestamp; 
jaAresp.xtime [1] responsertime; 
call reply (iaAresp, $len (iaAresp)); 
if <> then call debug; 
call buildAiotag (, receiverfiler); 
call readupdate (receive.filenum, 
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receiveAbuffer, 


end else ! error in receiving TX reply 


if error = 122 then 
activeAthread.subst 

else 

begin 


call saveAthreadAst 
activeAthread.state 


activeAthread.subst 
end; 
end; ! 2 
otherwise call debug; 
end; ! of case 
end; ' of proc body 
end; tof threadAactive 
Variable INT 
Variable INT 
Variable INT 
Variable INT (32) 
Variable INT (32) 
Variable INT (32) 
Subproc 
Subproc INT 


THREADASTATE procedures, 


ate := 


ate; 


:= threadAstaterstopping; 


ate := 
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*** THREADAACTIVE *** 


resend the same TX 
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proc threadAstopping; 
begin 
int(32) tag; 
string msg = ‘P’ := ["Thread stopped ", 
18*["\"], " TCB (#44, ##, FH, 27%%%%%hH) 
“PF #48, E #48", 0, %377], 
.tAname [0:34]; 


begin 
case activeAthread.substate of 
begin 
begin ! OQ, 
call aborttransaction; 
tAname [fnamecollapse (activeAthread.terminal.name, 
:= 0; 
call logAprint (msg, @tAname, 
activeAthread. index, 
activeAthread.lastAstate, 
activeAthread.liastAsubstate, 
activeAthread.lastAloc, 
activeAthread. lastAfnum, 
activeAthread. lastAerror); 
call close (activeAthread.terminal.fnum); 


if (activeAthreads := activeAthreads - 1) = O then 
shutdown := true; 


THREADASTATE procedures, *** THREADASTOPPING *¥*# 


ar 2.03 


tAname) J 


call threadAawaitio (0); ! just stop working for that thread 


end; ! 0 


otherwise call debug; 
end; ! of case substate 
end; ! of proc body 
end; !of threadAstopping 


Variable STRING Direct P+000 
Variable INT (32) Direct L+001 
Variable STRING Indirect L+003 


16FEBB87 


17:56:41 


22 


PAGE 30 


1214. 
1215. 
1216. 
1217. 
1218. 
1219. 
1220. 
1221. 
1222. 
1223. 
1224, 
1225. 
1226. 
1227. 
1228. 
1229. 
1230. 
1231. 
1232. 
1233. 
1234. 
1235. 
1236. 
1237. 
1238. 
1239. 
1240. 
1241. 
1242. 
1243. 
(1244, 
1245. 
1246. 
1247. 
1248. 
1249. 
1250. 
1251. 
1252. 
1253. 
1254. 
1255. 
1256. 
1257. 
1258. 
1259. 
1260. 
1261. 
1262. 
1263. 
1264. 
1265. 
1266. 
1267. 
1268. 
1269. 
1270. 


$BASE.GRAYTGUN.TXGEN38S [1] 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000022 
000054 
000076 
000134 
000134 
000140 
000140 
000140 
000146 
000146 
000161 
000161 
000202 
000202 
000202 
000202 
000202 
000204 
000204 
000210 
000210 
000212 
000220 
000220 
000223 
000225 
000225 
000225 
000237 
000241 
000241 
000241 
000245 
000250 
000251 
000251 
000254 
000257 
000257 
000261 
000261 
000261 
000264 
000267 
000270 
000270 
000271 
000304 


eh ak ast ot ss ss ss 


oO 


ANNMWWAWNMAODAAAWHAHLHMNAHAAMDAODMODOUTUUAISIAHABAAHAABAADABAARWOMNH HH BPH HHH HHH HK Odo 


2) 


(o) 


— 


proc threadAthink; 


begin 
int value: 
int .tcbh (tcbAA), .Q (queuerA); 
fixed now, endAtime; 


string sAname [0:34], 


tleAerror = ‘P’ := ["TLE allocation 
S4*["\"], ", File no: 7###", O, 
dlayAerror = ‘PP’ := [“Illegal think 
“terminal ", 34*["\"], "“, file n 
case activeAthread.substate of 
begin 
begin ! O 
if activeAthread.thinkAtime > Od then !d 
begin 
now := juliantimestamp / 1Q000f; ! 
endAtime := activeAthread.endAtime ! 
:= now + $DFIX Her ivenennes 

1 

i] 
@Q := @timeAlist; ! 

' 
if queueAany (timeAlist) then ' 
begin 

@etcb := timeAlist.succ; 
if endAtime < tcb.endAtime then ! 
@Q := etcb ! 
else begin ! 
@tcb := @timeAlist; ! 
do. 
@tcb := tcb.ready‘q.pred 
until endAtime >= tcb. ene nes 
@Q := tcb.ready‘q.succ; 
end; 
end; 
call queueAput (Q, activeAthread); ! 
call threadAawaitio (1); ' 
end else 
begin ! 
Call threadAawaitio (1); ! 
call activateAthread (activeAthread); 
end; ! 
end; ! 0 
begin ! 1 
activeAthread.state := threadAstatera 
activeAthread.substate := 0; ! 
end; ! 


otherwise call 
end; !case 
end; tof threadAthink 


debug; 


THREADASTATE procedures, 


*#* THREADATHINK *** 


failure for terminal ", 


%3771, 

time value 7##### for “, 
Oo: 7###", 0, %377]; 
elay! 


in tics (0.01 
also in tcis 
d.thinkAtime, 0); 

insert active thread in 
list at right spot 

if time list is empty 
insert in timer list 
otherwise find right spot 


sec) 


time list not empty 


does it belong in front ? 
yes, use first TCB as Q 
no, walk time list from 
back 


insert active thread 
suspend thread 


no need to wait 

set next substate to 1 
! and force a task 

dispatch 


ctive; 
go do next tx 


NN 
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Variable 


Variable,426 


Variable 
Variable 


IHREADASTATE procedures, 


STRING 
FIXED (0) 
FIXED (0) 
STRUCT-I 
STRING 
STRUCT-I 
STRING 
INT 


Direct 
Direct 
Direct 
Indirect 
Direct 
Indirect 
Direct 
Direct 
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P+000 
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1272. ooo0000 Oo oO proc assignAthread (tcb, record); 

1273. 000000 1 oO fw er ee rn ee een re 

1274, 000000 1 QO int .tcb (tcbAA), .record (configsrecordsAaA); 

1275. o00G000 i OG pegin 

1276. oooood 1 1 int .buf [0:32]; 

1277. oooooo 1 1 

1278. 000000 1 1 string .sAbuf := @buf ‘<<’ 1, .p; 

1279. 000000 1 1 

1280. oooooo0 1 1 begin 

1281. 000006 1 2 sAbuf ‘:=’ record.terminalAname for 16; !$len(configArecordA”, tAname) 

1282. 000013 1 2 call fnameexpand (buf, tcb.terminal.name, 

1283. 000013 1 2 startupAparameter([paramAdefault].name) ; 

1284. 000023 1 2 tcb.terminal.fnum := -1; 

1285. 000026 1 2 tcb.state := threadAstateAcliosed; 

1286. 000031 1 2 tcb.substate := QO; !initial value; 

1287. 000034 1 2 activeAthreads = activeAthreads + 1; 

1288. 000036 1 2 end; 

1289. 000036 1 1 end; !of assignAthread 
BUF Variable INT Indirect L+001 
P Variable STRING Indirect L+003 
RECORD Variable,20 STRUCT-I Indirect L-003 
SABUF Variable STRING Indirect L+0Q02 
TCB Variable,426 STRUCT-I Indirect L-004 

1290. o00000 0 °O 

1291. 000000 Oo Od proc threadAawaitio (nextAsubstate); 

1292. 000000 1 O i SSS S SSeS SSS SSS SS SSS ate 

1293. 000000 1 O int nextAsubstate; 

1294. ooocoo 1 0 begin 

1295. 000000 1 1 activeAtnhread.substate := nextAsubstate; 

1296. cooo03 1 1 activeAthread.needsAwork := false; 

1297. 000007 1 1 end: ! of threadAawaitio 
NEXTASUBSTATE Variable INT Direct L-003 

1298. 000000 Oo Oa 

1299. 000000 Go O proc activateAthread (tcb); 

1300. 000000 1 O (SSS lS= PSS SSS ae e SaaS SS 

1301. oo0000 1 QO int .tcb (tcbAA); 

1302. 000000 i O begin 

1303. 000000 1 #1 call queueAput (readyAlist, tcb); 

1304. 000004 1 1 if @etcb = @activeAthread then 

1305. 000010 1 1 call suspendAthread; 

1306. 000011 1 1 end; 
TCB Variable,426 STRUCT-I Indirect L-003 

1307. o00000 OQ QO 

1308. 0006006 G O proc saveAthreadAstate; 

1309. ooo0c00 1 O Lo SSS soca pass -reSss=-- 

1310. 000000 1 QO begin 

1311. 000000 1 1 int callAlocation = ‘L’ - 2; 

1312. oooo000 1 1 

1313. oocooo 1 1 activeAthread. lastAstate := activeAthread.state; 

1314. 000004 1 j activeAthread.lastAsubstate := activeAthread.substate; 

1315. 000010 1 1 activeAthread.lastAloc >= callAlocation; 
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thread procedures 


end; 


Variable INT Direct 


proc selectAthread; 

begin 
@activeAthread := queuerAget (readyAlist); 
activeAthread.needsAwork := true; 

end; 


proc suspendAthread; 
begin 

@activeAthread := nil; 
end; 


proc processAthreadAstate; 


begin 
case activeAthread.state of 
begin 
call threadActlosed; 
call threadAready ; 


call threadAactive; 
call threadAstopping; 
call threadAthink; 
otherwise 
call debug; !improve 
end; 
end; ! of processAthreadAstate; 


proc processAthread; 
begin 
while activeAthread.needsAwork do 
call processAthreadAstate; 
call suspendAthread; 
end; 


L-002 
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1382. 000034 
1383. 000037 
1384. 000042 
1385. 000042 
1386. 000044 
1387. 000046 
1388. 000046 
1389. 000046 
1390. 000051 
BLOCKASIZE 
NUMABLOCK 
PAGEASIZE 
PRIEXT 
RECAPERABLOCK 
SECEXT 
1391. 000053 
1392. 000053 
1393. 000053 
1394. 000053 
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1400. 000122 
1401. 000124 
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thread procedures 


proc initAthreads; 


int mame [0:11], error, i 
maxterm, 3.05 
.teb (tcbAA), 
. param (startupAparamsA)r), 
default (startupAparamAA) := 
@startupAparameter [paramAdefault].name; 
int filecode, 2.00 
priext, secext; 2.02 
struct .record (configArecordsns); 
string badtxlog = ‘P’ := 2.00 
["Wrong type of TXLOG file", 0, %377]; 2.00 
subproc calcAextAsize (priext, secext); 2.02 
SSS Seo SSS SS SSeS SS ee ee OS Se eS 2.02 
int .priext, .secext; 2.02 
begin 2.02 
int recAperAblock, numAblock; 2.02 
literal blockAsize = 4096, 2.02 
pageAsize = 2048; 2.02 
2.02 
if startupAparameter[ paramAtx100 ].setup then 2.02 
begin 2.02 
recAperAblock := (blockAsize - 22) / ($len (txAdef) + 4); 2.02 
numAblock := $int (txmax / $dbl (recAperAblock)) + 1; 2.02 
priext := numAblock * 2; !2 pages per block! 2.02 
if priext <= 60 then 2.02 
begin 2.02 
secext := 1; 2.02 
return; 2.02 
end; 2.02 
end; 2.02 
priext := secext := 60; 'default = 60 pages! 2.02 
end: 2.02 
Literal INT %010000 
Variable INT Direct S-000 
Literal INT %004000 
Variable INT Indirect S-004 
Variable INT Direct S-001 
Variable INT Indirect $-003 
subproc nextAconf igsrecord; ! read neat circuit entry from config file 
begin 
call read (config.filenum, record, $len (configArecordAA)); !16 bytes! 
call fileinfo (config.filenum, error); 
end; 
begin 
for i := 0 to maxAthreads-1 do 
begin ! initialize threads ! 
threads [i] ‘:=’ ($len(tcbAA)/2) * [0]; !zero out thread! 2.00 
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thread procedures 


end; 


Variable INT Direct 


proc selectAthread; 


begin 
@activeAthread := queueAget (readyAlist); 
activeAthread.needsAwork := true; 

end; 


proc suspendAthread; 
begin 

@activeAthread := nil; 
end; 


proc processAthreadsAstate; 
begin 
case activeAthread.state of 
begin 
call threadAclosed; 
call threadAready; 
call threadAactive; 
call threadAstopping; 
call threadAthink; 
otherwise 
call debug; ! improve 
end; 
end; ! of processAthreadAstate; 


proc processAthread; 
begin 
while activeAthread.needsAwork do 
call processAthreadAstate; 
call suspendAthread; 
end; 
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thread procedures 


proc initAthreads; 
begin 
int mame [0:11], error, i, 
maxterm, 3 
-tcb (tcbAA), 
.param (startupAparamAA), 
-default (startupAparamAA) := 
@startupAparameter [paramAdefault].name; 
int filecode, 2 
priext, secext; 2 
struct .record (configArecordAn”); 
string badtxlog = ‘P’ := 2. 
{"Wrong type of TXLOG file“, 0, %377]; 2. 
subproc calcAextAsize (priext, secext); 2 
es es <p ea a se es “i s,m ‘ese, ni ph ate tn em eb“, CY eee wp ee cm; 2 
int .priext, .secext; 2 
begin 2 
int recAperAblock, numAblock; 2 
literal blockAsize = 4096, 2. 
pageAsize = 2048; 2. 
2 
if startupAparameter{ paramAtx100 ].setup then 2 
begin 2 
recAperAblock := (blockAsize - 22) / ($len (txAdef) + 4); 2 
numAblock := $int (txmax / G$dbl (recAperAblock)) + 1; 2 
priext := mumAblock * 2; !2 pages per block! 2 
if priext <= 60 then 2 
begin 2 
secext := 1; 2. 
return; 2 
end; 2 
end; 2 
priext := secext := 60; ‘default = 60 pages! 2 
end; 2 
Literal INT %010000 
Variable INT Direct $-000 
Literal INT %004000 
Variable INT Indirect S-004 
Variable INT Direct $-001 
Variable INT Indirect $-003 


subproc nextAconf igrrecord; ! 


read next circuit entry from config file 


begin 
call read (config.filenum, record, $len (configsrecordAAN)); !16 byte 
call fileinfo (config.filenum, error); 
end; 
begin 
for i := O to maxAthreads-1 do 
begin ! initialize threads ! 
threads [i] ‘’:=’ ($len(tcbAA)/2) * [0]; !zero out thread! 2. 
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thread procedures 


end; 


Variable INT Direct 


proc selectAthread; 

begin ; 

@activeAthread := queueAget (readyAlist); 
activeAthread.needsAwork := true; 

end; 


proc suspendAthread; 
begin 

@activeAthread := nil; 
end; 


proc processAthreadAstate; 


begin 
case activeAthread.state of 
begin 
call threadAclosed; 
call threadAready; 


call threadAactive; 
call threadAstopping; 
call threadAthink; 
otherwise 
call debug; ! improve 
end; 
end; ! of processAthreadAstate; 


proc processAthread; 
begin 
while activeAthread.needsAwork do 
call processAthreadAstate; 
call suspendAthread; 
end; 


L-002 


.00 


16FEB87 


17:56:41 


pe 


PAGE 34 


$BASE.GRAYTGUN.TXGEN38S [1] 


1354, 000000 
1355. 000000 
1356. 000000 
1357. o0co00 
1358. 000000 
1359, 000000 
1360. ooo000 
1361. 000000 
1362. 000000 
1363. 000000 
1364. 000000 
1365. 000000 
1366. 000000 
1367. occo000 
1368. 000000 
1369. 000015 
1370. 000015 
1371. 000015 
1372, 000015 
1373. 000015 
1374, 000015 
1375. o000g0g15 
1376. 000015 
1377. 000015 
1378. 000015 
1379, 000022 
1380. 000022 
1381. 000024 
1382. 000034 
1383. 000037 
1384. 000042 
1385. 000042 
1386. 000044 
1387. 000046 
1388. 000046 
1389. 000046 
1390. 000051 
BLOCKASIZE 
NUMABLOCK 
PAGEASIZE 
PRIEXT 
RECAPERABLOCK 
SECEXT 
1391. 000053 
1392. 000053 
1393. 000053 
1394. 000053 
1395. 900053 
1396. 000063 
1397. 000112 
1398. 000113 
1399. 000113 
1400. 000122 
1401. 000124 
1402. 000124 


NNNNNNNNNDNNNNYNNNNNND — a | ee ee eee ss ee HH OO 


—~=a@ 4 oNNNNA = 


WRN = |= NNN — = = 


thread procedures 


proc initAthreads; 


int name fo 1117 error, i, 
maxterm, 3.05 
.tcb (tcbAA), 
.Pparam (startupAparamAn), 
-default (startupAparamAA) ;:= 
@startupAparameter [paramAdefault]-.name; 
int filecode, 2.00 
priext, secext; 2.02 
struct .record (configArecordA)A); 
string badtxlog = ‘PP’ := 2.00 
["Wrong type of TXLOG file", 0, %377]; 2.00 
subproc calcAextAsize (priext, secext); 2.02 
SS SSeS Ser rere SS SH SSS SS Sse 2.02 
int .priext, .secext; 2.02 
begin 2.02 
int recAperAblock, numAblock; 2.02 
literal blockAsize = 4096, 2.02 
PageAsize = 2048; 2.02 
2.02 
if startupAparameter[{ paramAtx100 ].setup then 2.02 
begin 2.02 
recAperAblock := (blockAsize - 22) / ($len (txAdef) + 4); 2.02 
numAblock := $int (txmax / $dobl (recAperAblock)) + 1; 2.02 
priext := numAblock * 2; !2 pages per block! 2.02 
if priext <= 60 then 2.02 
begin 2.02 
secext := 1; 2.02 
return; 2.02 
end; 2.02 
end; 2.02 
priext := secext := 60; 'default = 60 pages! 2.02 
end: 2.02 
Literal INT %0 10000 
Variable INT Direct $s-000 
Literal INT %004000 
Variable INT Indirect S-004 
Variable INT Direct S-001 
Variable INT Indirect $-003 
subproc nextAconfigArecord; ! read neat circuit entry from config file 
begin 
call read (config.filenum, record, $len (canfigArecordAA)); 116 bytes! 
call fileinfo (config.filenum, error); 
end; 
begin 
for i := 0 to maxAthreads-1 do 
begin ! initialize threads ! 
threads [i] ‘:=’ ($len(tcbAA)/2) * [0]; !zero out thread! 2.00 
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tnread procedures 


end; 


Variable INT Direct 


proc selectAthread; 

begin 
@activeAthread := queueAget (readyAlist); 
activeAthread.needsAwork := true; 

end; 


proc suspendAthread; 
begin 

@activeAthread := nil; 
end; 


proc processAthreadAstate; 


begin 
case activeAthread.state of 
begin 
call threadAclosed; 
call threadAready; 


call threadAactive; 
call threadAstopping; 
call threadAthink; 
otherwise 
call debug; !improve ... 
end; 
end; ! of processAthreadAstate; 


proc processAthread; 
begin 
while activeAthread.needsAwork do 
call processAthreadAstate; 
call suspendAthread; 
end; 


L-002 


.00 


16FEB87 


17:56:41 


pe 


PAGE 34 $BASE.GRAYTGUN.TXGEN38S [1] thread procedures 16FEB87 17:56:41 


1354. 000000 0 OQ proc initAthreads; 
1355. 000000 1 O SSS sess SS S= 
1356. o0gg00 1 OQ begin 
1357. oocccsc 1 i int mame [0:11], error, i, 
1358. ooa000 1 1 maxterm, 3.05 
1359. oooooo 1 1 .teb (tcbAA), 
1360. ooo0o000 1 1 . param (startupAparamA”), 
1361. 000000 1 1 default (startupAparamAA) ;:= 
1362, 000000 1 1 @startupAparameter [paramAdefault].name; 
1363. 000000 1 #1 int filecode, 2.00 
1364. 000000 1 1 priext, secexit; 2.02 
1365. 000000 1 1 
1366. oooo00 1 1 struct .record (configArecordAs); 
1367. ocoooo 1 1 string badtxlog = ’P’ := 2.00 
1368. 000000 1 1 {"Wrong type of TXLOG file", 0, %377]; 2.00 
1369. 000015 1 1 
1370, 000015 1 1 subproc calcAextAsize (priext, secext); 2.02 
1371. 000015 2 1 Vi ERE Ie ee ee aa a acme ak a a ae mines Sec 2.02 
1372. 000015 2 #1 int .priext, .secext; 2.02 
13783. 000015 2 1 begin 2.02 
1374, 000015 2 2 int recAperAblock, numAblock; 2.02 
1375. 000015 2 2 literal blockAsize = 4096, 2.02 
1376. 000015 2 2 pageAsize = 2048; 2.02 
1377. 000015 2 2 2.02 
1378. 000015 2 2 if startupAparameter[{ paramAtx100 ].setup then 2.02 
1379. 000022 2 2 begin 2.02 
1380. 000022 2 3 recAperAblock := (blockAsize - 22) / ($len (txAdef) + 4); 2.02 
1381. 000024 2 3 numAblock := $int (txmax / $dbl (recAperAblock)) + 1; 2.02 
1382. 000034 2 3 priext := nmumAblock * 2; !2 pages per block! 2.02 
1383. 000037 2 3 if priext <= 60 then 2.02 
1384. 000042 2 3 begin 2.02 
1385. 000042 2 4 secext := 1; 2.02 
1386. 000044 2 4 return; 2.02 
1387. QO00046 2 4 end; 2.02 
1388. 000046 2 3 end; 2.02 
1389. 000046 2 2 priext := secext := 60; ‘default = 60 pages! 2.02 
1390. 000051 2 2 end; 2.02 

BLOCKASIZE Literal INT %0 10000 

NUMABLOCK Variable INT Direct S-000 

PAGEASIZE Literal INT %004000 

PRIEXT Variable INT Indirect S-004 

RECAPERABLOCK Variable INT Direct S-001 

SECEXT Variable INT Indirect S-003 
1391. 000053 1 1 
1392. 000053 1 1 subproc nextAconfigArecord; ! read mext circuit entry from config file 
1393. 000053 2 #1 L {Sass seSSs—SSS5-S-See 5 
1394. 000053 2 #1 begin 
1395. GO6053 2 2 call read (config.filenum, record, $len (canfigArecordAA)); !16 bytes! 
1396. 000063 2 2 call fileinfo (config.filenum, error); 
1397. Q00112 2 2 end; 
1398. 000113 1 1 
1399. 000113 1 1 begin 
1400. 000122 1 2 for i := 0 to maxAthreads-1 do 
1401. 000124 1 2 begin ! initialize threads ! 
1402. 000124 1 3 threads [i] ‘:=’ ($len(tcbAA)/2) * [0]; !zero out thread! 2.00 
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thread procedures 


end; 


Variable INT Direct 


proc selectAthread; 

begin 

@activeAthread := queueAget (readyAlist); 
activeAthread.needsAwork := true; 

end; 


proc suspendAthread; 
begin 

@activeAthread := nil; 
end; 


proc processAthreadAstate; 


begin 
case activeAthread.state of 
begin 
call threadAclosed; 
call threadAready; 


call threadAactive; 
call threadAstopping; 
call threadAthink; 
otherwise 
call debug; !improve 
end; 
end; ! of processAthreadAstate; 


proc processAthread; 
begin 
while activeAthread.needsAwork do 
call processAthreadAstate; 
call suspendAthread; 
end; 
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thread procedures 


begin 
int name [0:111, error, i, 
maxterm, 3 
.tceb (tcbAr), 
. param (startupAparamAA), 
.default (startupAparamA*A) ;= 
@startupAparameter [paramAdefault].name; 
int filecode, 2 
priext, secext; 2 
struct .record (configArecordAn); 
string badtxlog = ‘PP’ := 2. 
{"“Wrong type of TXLOG file", 0, %377]; 2. 
subproc calctextAsize (priext, secext); 2. 
SSS RSS SSeS SSS SSS Sh SSS ees aS eS 2. 
int .priext, .secext; 2. 
begin Zs 
int recAperAblock, numAblock; 2. 
literal blockAsize = 4096, 2. 
pageAsize = 2048; 2. 
2. 
if startupAparameter[ paramAtx100 J].setup then 2. 
begin 2. 
recAperAblock := (blockAsize - 22) / ($len (txAdef) + 4); 2. 
numAblock := $int (txmax / $dbl (recAperAblock)) + 1; 2. 
priext := numAblock * 2; !2 pages per block! 2. 
if priext <= 60 then 2. 
begin 2. 
secext := 1; 2. 
return; 2. 
end; 2. 
end; 2. 
priext := secext := 60; 'default = 60 pages! 2 
end; 2. 
Litera} INT %010000 
Variable INT Direct S-000 
Literal INT %004000 
Variable INT Indirect S-004 
Variable INT Direct S-001 
Variable INT Indirect $-003 
subproc nextAconf igArecord; ! read mext circuit entry from config file 
begin 
call read (config.filenum, record, $len (configArecordAA)); !16 byte 
call fileinfo (config.filenum, error); 
end; 
begin 
for i := 0 to maxAthreads-1 do 
begin ! initialize threads ! 
threads [i] ‘:=’ ($len(tcbA‘)/2) * [0]; !zero out thread! 2. 
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thread procedures 


threads [i].terminal.fnum := -1; 
threads [i]. index := i; 
threads [i].dataAbuffer ‘:=’ (bufferAsize/2)*[{" "J; 
end; 
@param := @startupAparameter [paramAconfig]; 
if param.setup then 
config.filename ‘:=’ param.name for 12 
else 
begin 
name ‘’:=’ ["CIRCUITS", 8 [" "]]; ! confighdefaultname 


call fnameexpand (name, config.filename, default); 
end; 
call iodevAinit (config, openAreadonly, 1 


@param := @startupAparameter [paramAscript]; 
if param.setup then 
script.filename ‘:=’ param.name for 12 
else 
begin 
name ‘;=’ ["“SCRIPT ", 8* [" “J]; ! scriptAdefaultname 


call fnameexpand (name, script.filename, default); 
end; 


'open SCRIPT for SBB, waited 

call open (script.filename, script.filenum, %20,,,, 
'scriptAbuffer!, 4096); 

if <> then 

begin 

call iodevAfailure (script.filenum, script.filename, 

openAattempt); 
call abend; 


end; 
@param := @startupAparameter [paramAtxlog]; 
if param.setup then 
txlog.filename ‘:=’ param.name for 12 
else 
begin 
name ‘:=’ ["TXLOG ", 8F [" “J; ! default name 
call fnameexpand (name, txlog.filename, default); 
end; 


! open statistic file waited. Create it if one does not exist. 


call open (txlog.filename, txlog.filenum, openAexclusive); 
if <> then 


begin 
call fileinfo (-1,error); 
if error = 11 then 
begin 


Call calcAextAsize (priext, secext); 
call create ( txlog.filename !cap=81120 tx for (60,60) 


s priext ' pri ext 
» 6211 ! fitle-code 
» secext ' sec ext 
» O ! unstructured 
’ ' rec len 
' 


block size 


, guardianAtypedisc); 


2.00 
2.00 
2.00 


2.00 
2.00 
2.00 
2.00 
2.00 
2.00 
2.00 
2.00 
2.00 
2.00 
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2.00 
2.02 
2.00 
2.02 
2.00 
2.02 
3.00 
3.00 


3.00 
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1460. 000426 1 4 ; ! ks param 3.00 
1461. 000426 1 4 ; ! ak param 3.00 
1462. 000426 1 4 ’ ! pa param 3.00 
1463. 600426 i 4 : i max ext 3.00 
1464. 000426 1 4 , 4096 ! unst buf size 3.00 
1465. 000426 1 4 , O ! buffered writes enabled 2.00 
1466. 000426 1 4 ); 2.00 
1467. 000445 1 4 if <> then call debug; 2.00 
1468. 000447 1 4 call open (txlog.filename, txlog.filenum, openAexclusive); 2.00 
1469. 000461 1 4 if <> then 2.00 
1470. 000462 1 4 begin 2.00 
1471. 000462 1 5 call jiodevAfailure (txlog.filenum, txlog.filename, 2.00 
1472. 000462 1 5 openrattempt) ; 2.00 
1473. 000470 1 5 call abend; 2.00 
1474. 000475 1 5 end; 2.00 
1475. 000475 1 4 end; ‘error 11! 2.00 
1476. 000475 1 3 end; ! <> ! 2.00 
1477. 000475 1 2 

1478. 000475 1 2 call fileinfo (,,txlog.filename,,,,,,,filecode); 2.00 
1479. 000523 1 2 if filecode <> 6211 then 2.00 
1480. 000527 1 2 begin 2.00 
1481. 000527 1 3 call logAprint (badtxlog); 2.00 
1482. 000547 1 3 call abend; 2.00 
1483. 000554 1 383 end; 2.00 
1484. 000554 1 2 call control (txlog.filenum, 20); ! purgedata 2.00 
1485. 000563 1 2 

1486. 000563 1 2 txlog.bufaddr := allocateAbuffer (txstatAbufsize); 3.00 
1487. 000567 1 2 @txstat := txlog.bufaddr; 3.00 
1488. 000571 1 2 txstatArecs := 0; 3.00 
1489. 000573 1 2 if txstatAnumrecs <> 128 then call debug; ! just in case 3.00 
1490. 000576 1 2 

1491. 000576 1 2 1 Read configuration file to intialize terminals (threads) 2.00 
1492. 000576 1 2 call position (config.filenum, Od); 

1493. 000602 1 2 call nextAconfigArecord; 

1494. 000603 1 2 

1495. 000603 1 2 ! The next enhancement allows to reduce the number of active 3.05 
1496. 000603 1 2 ! terminals without changing the CONFIG files; the number of 3.05 
1497. 000603 1 2 ' active terminals is limited to MAXTERM even if the CONFIG 3.05 
1498. 000603 1 2 ! file contains more entries. 3.05 
1499. 000603 1 2 ! It also protects us from a CONFIG file that has more than 3.05 
1500. 000603 1 2 ! MAXATHREADS entries. 3.05 
1501. 000603 1 2 

1502. 000603 1 2 @param := @startupAparameter [paramAmaxterm]; 3.05 
1503. 000606 i 2 if param.setup and 3.05 
1504. 000606 1 2 ((maxterm := param.value) <= maxAthreads) and 3.05 
1505. 000606 1 2 (maxterm > Q) then ! ok, maxterm set up correct 3.05 
1506. 000621 1 2 else maxterm := maxAthreads; 3.05 
1507. 000631 1 2 

1508. 000631 1 2 while not error and activeAthreads < maxterm do 3.05 
1509. 000637 i Zz begin 

1510. 000637 1 3 etcb := @ethreads [nextAthread]; 

1511. 000646 1 3 call assignAthread (tcb, record); 

1512. 000652 1 3 call activateAthread (tcb); 

1513. 000655 1 3 nextAthread := nextAthread + 1; 

1514. 000657 1 3 call nextAconfigArecord; 

1515. 000660 1 3 end; ! while 

1516. 000661 1 2 


Lt 
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1517. 000661 
1518. 000663 
1519. 000663 
1520. 000663 
1521. 000663 
1522. 000663 
1623. 000710 
1524, 000710 
1925. 000713 
1926. 000713 
1527. 000723 
1928. 000726 
1529. 000730 
1530. 000730 
1531. 000730 

BADTXLOG 

CALCAEXTASIZE 

DEFAULT 

ERROR 

FILECODE 

T 

MAXTERM 

NAME 

NEXTACONFIGARECORD 

PARAM 

PRIEXT 

RECORD 

SECEXT 

TCB 
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end; ! 
'of initAthreads 


end; 


thread procedures 


threadAcount := activerAthreads; 


! Mean inter-arrival 


meanAperAthread ;:= 
$db1 ( 


if threadAcount 
1e3 / ($filt(rate) / (10e0 * $fit(threadAcount)))); 


time per thread in milliseconds 
! remember rate is tps scaled up by 10 


= 0 or rate 


@param := @startupAparameter [paramAmaxtx]; 


if param.setup and 
(maxAtxAout := 
else 


param.value) > QO then 


maxAtxAout := maxAthreads + 1; 


of proc body 


Variable STRING Direct 
Subproc %000015 
Variable,32 STRUCT-I Indirect 
Variable INT Direct 
Variable INT Direct 
Variable INT Direct 
Variable INT Direct 
Variable INT Direct 
Subproc %000053 
Variable,32 STRUCT-I Indirect 
Variable INT Direct 
Variable,20 STRUCT Indirect 
Variable INT Direct 
Variable,426 STRUCT-I Indirect 


tok! 


= 0 then Qd else 


P+000 


L+022 
L+015 
L+023 
L+016 
L+017 
L+001 


L+021 
L+024 
L+026 
L+025 
L+020 


At 
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1533. 000000 0 O int (32) proc buildAiotag (tcb, fileAtype) variable; 

1534, 000000 1 0 PSS SSS See oe SASS eS aS SSS Ser eee Se aero 

1535. 000000 1 O int .tcb (tcbAA), fileAtype; 

1536. 000000 1 O begin 

1537. 000000 1 1 int (32) tag := Od; 

1538. ogo000 1 1 int high = tag, low = tagtl;: 

1539. 000000 1 1 

1540. ooooco 1 1 begin 

1541. 000002 } 2 high := nil; 

1542. 000004 1 2 if $param (tcb) then 

1543. 000007 1 2 high := @tcb; 

1544. 000011 1 2 if Gparam (fileAtype) then 

1545, 000014 1 2 low.<8:15> := fileAtype; 

1546. 000020 1 2 end; 

1547. 000020 1 1 return tag; 

1548. 000022 1 1 end; !'!of proc buildAiotag; 
FILEATYPE Variable INT Direct L-004 
HIGH Variable INT Direct L+001 
LOW Variable INT Direct L+002 
TAG Variable INT (32) Direct L+001 
TCB Variable,426 STRUCT-I Indirect L-005 

1549. 000000 0 QO 

1550. 000000 0 QO Proc iodevAfailure (f, name, operation) variable; 

1551. oooooo 1 0 L. VSS SSS SSS aS PSS SSeS tS Sar SS Se See ea a SS eee os 

1552. 000000 1 OQ int f, .mame, operation; 

1553. 000000 1 O begin 

1554, 000000 1 #1 int error, convert := true, 1, fAname [0:11]; 

1555. 000000 1 #1 string sAname [0:34], 

1556. Qo00000 1 #1 sAoper [0:30], 

1557. 000000 1 1 ioAfailure = ‘’P’ ;= 

1558. 000000 1 1 {20¥*("\"], “ with error ?#### on file ", 34¥*["\"], 

1559. 000050 1 #1 " file no: ?###", O, %377]; 

1560. 000061 1 #1 begin 

1561. 000065 1 2 call fileinfo (f, error, fAname); 

1562. 000114 1 2 if f = -1 then 

1563. 000117 1 2 begin 

1564, 000117 1 3 sAname ‘:=’ "No file name" & Q; 

1565. 000137 1 3 convert := false; 

1566. 000141 1 3 end; 

1567. 000141 1 2 if Gparam (name) then 

1568. 000144 1 2 begin 

1569. 000144 1 3 FfAname ’:=’‘ name for 12; 

1570. 000150 1 3 convert := true; 

1571. 000152 1 3 end; 

1572. 000152 1 2 if convert then sAname [fnamecollapse (fAname, sAname)] := OQ; 

1573. 000164 1 2 case operation of 

1574. 000166 1 2 begin 

1575. 000166 1 3 sAoper =’ ["OPEN failed", QO]; 

1576. 000200 1 CEl1 sAoper ‘:='’ ["READ failed", 0]; 

1577. 000212 1 CE2 sAoper ‘:=‘ ["WRITE failed", 0]; 

1578. 000224 1 CE3 sAoper ‘:=‘ ["CONTROL failed", 0]; 

1579. . 000236 1 CE4 sAoper ‘:=‘ ["AWAITIO completion ", Q]; 

1580. 000250 1 CES end; !case 

1581. 000256 1 2 call logAprint (iorAfailure, @sAoper, error, @sAname, f); 

1582. 000302 1 2 end; 


Be 


PALE SY 


1583. 


CONVERT 
ERROR 

F 

FANAME 
IOAFAILURE 
L 

NAME 
OPERATION 
SANAME 
SAOPER 


1584. 
1585. 
1586. 
1587. 
1588. 
1589. 
1590. 
1591. 
1592. 
1593. 
1594. 
1995. 
1596. 
1597. 
1598. 
1599. 
1600. 
1601. 
1602. 
1603. 
1604. 
1605. 
1606. 
1607. 
1608. 


DEV 

FLAGS 

I 

SYNC 
SANAME 
TYPE 
WRONGATYPE 
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000302 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000051 
000051 
000051 
000052 
000065 
000075 
000133 
000133 
000151 
000151 
000161 
000202 
000210 
000213 
000216 
000216 
000216 


1 


1 
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tT] 


General 


IO Procedures 


end; 
Variable INT Direct L+002 
Variable INT Direct L+001 
Variable INT Direct L-006 
Variable INT Direct L+004 
Variable STRING Direct P+O00 
Variable INT Direct L+003 
Variable INT Indirect L-005 
Variable INT Direct L-004 
Variable STRING Direct L+020 
Variable STRING Direct L+042 
proc iodevAinit (dev,flags, sync, type) variable; 
int .dev (iodevAA), flags, sync, type; 
begin 
string sAname [0:34], 
wrongAtype = ‘’P’ ;= 
{"Device type for file ", 34¥*["\"], “ is ?###, should be ?7###", 
int i; 
begin 
call open (dev.filename, dev.filenum, flags, sync); 
iodevAcheck (dev.filenum, dev.filename, openAattempt); 
call fileinfo (dev.filenum, dev.error,,, dev.type); 
if (not dev.error) and $param (type) and 
(i := dev.type.guardianAdevtype) <> type then 
begin 
s4name [fnamecollapse (dev.filename, sAname)] := 0; 
call logAprint (wrongAtype, @sAname, i, type); 
call close (dev.filenum); 
dev.filenum := -1; 
dev.error := 16; 
end; 
end; ! of proc body 
end; ! of proc iodevAinit 
Variable,40 STRUCT-I Indirect L-007 
Variable INT Direct L-006 
Variable INT Direct L+023 
Variable INT Direct L~-005 
Variable STRING Direct L+001 
Variable INT Direct L-004 
Variable STRING Direct P+000 


0,%377]; 


on 
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1610. o0000ce Oo 06 proc ioAwait; 
1611. 000000 1 O \ Sse tSsSas 
1612. 000000 1 O begin 
1613. oo0go00 1 1 int (32) tag, delay; 
1614. 000000 1 1 int fnum, error, count, myAfiletype, done, buf, 
1615. 000000 1 1 highAtag = tag, lowAtag = tagtl, 
1616. 000000 1 #1 .tcb (tcbAA) = tag; 
1617. 000000 1 1 
1618. 000000 1 1 subproc receiveAcompletion; 
1619. 000000 2 #1 ! SSeS SSS reo Se Sas SSeS = 
1620. 000000 2 #1 begin 
1621. 000000 2 2 int (32) tag; 
1622. 000000 2 2 int .tcb (tcbAA), 
1623. 000000 2 2 -buffer := receive.bufaddr; 
1624. 000000 2 2 
1625. 000000 2 2 begin 
1626. 000003 2 3 if error = 6 then ! system msg received 
1627. 000006 2 3 begin 
1628. 000006 2 4 if buffer = sysmsgAtime then 
1629. 000011 2 4 begin 
1630. 000011 2 5 @buffer := receive.bufaddr; 
1631. 000013 2 5 @tcb := buffer [1]; 
1632. 000016 2 5 call activateAthread (tcb); 
1633. 000021 2 5 tag := buildAiotag (, receiveArAfiler); 
1634. 000026 2 5 call reply (buffer); 
1635. 000034 2 5 if <> then call debug; 
1636. 000036 2 5 call readupdate (receive.filenum, buffer, 256,, tag); 3.08 
1637. 000046 2 5 if <> then call debug; 
1638. 000050 2 5 end; 
1639. 000050 2 4 end eise ! user request received, must be interactive traffic 
1640. 000051 2 3 begin 
1641. 000051 2 4 if interAactiveAdata then ! already some request pending ?? 3.08 
1642. 000053 2 4 call debug; 
1643. 000054 2 4 interAactiveAdata := true; 
1644, ooo0s6 2 4 
1645. 000056 2 4 if queueAany (suspendAlist) then 
1646. 000062 2 4 call activateAthread (queueAget (SsuspendAlist)) 
1647. 000067 2 4 else 
1648. 000070 2 4 
1649. 000070 2 4 if queueAany (timeAlist) then 
1650. 000074 2 4 call activateAthread (queuerget (timeAlist)); 
1651. 000101 2 4 end; 
1652. 000101 2 3 end; ! of proc body 
1653. 000101 2 2 end; ! of subproc 
BUFFER Variable INT Indirect $-000 
TAG Variable INT (32) Direct $-003 
TCB Variable,426 STRUCT~I Indirect 3-001 
1654. 000103 1 1 
1655. 000103 1 1 begin ! of body of IOAWAIT 
1656. 000104 1 2 delay := —1d; 
1657. 000106 1 2 
1658. 000106 1 2 if queueAany (timeAlist) then ! are there any waiting threads 3.01 
1659. 000112 1 2 begin ' use its wait time as delay 3.01 
1660. 000112 1 3 @etcb := timeAlist.succ; ! for AWAITIO 3.01 
1661. 000114 1 3 delay := $dbl (tcb.endAtime - (juliantimestamp / 10000f)); 3.01 
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000136 
000142 
000142 
000147 
000150 
000150 
000150 
000150 
000153 
000153 
000154 
000155 
000155 
000155 
000157 
000167 
000216 
000216 
000226 
000226 
000231 
000234 
000237 
000237 
000241 
000241 
000246 
000253 
000255 
000255 
000256 
000256 
000261 
000261 
000272 
000275 
000300 
000303 
000306 
000307 
000307 
000311 
000311 
000311 
000312 
000313 
000313 
000313 
000313 
000313 
000313 
000316 
000317 
000317 
000317 
000317 
000317 
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i) 
oO 
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oO 
N 


oO 
Ww 


oO 
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b 


if delay <= OD then ! time has elapsed already 7? 
begin 
call activateAthread (queuerAget (timeAlist)); 
return; ' continue with that thread 
end; 
end; 


if $switches.<4> then 


begin 
stack (txAoutstanding); ! show # tx out in front panel 
code (ssw); 

end; 

Ffnum := -1;3 

call awaitio (fnum, buf, count, tag, delay); 

call fileinfo (fnmum, error); 


if error = 30 !No LCB! then call abend; 


myAfiletype := lowAtag.<8:15>; 
if fnum = -1 then 
if error <> 40 then ' not a timeout, very strange 
call debug 
else 
begin : 
if queuerempty (timeAlist) then call debug; ! 7777 
call activateAthread (queueAget (timeAlist)); 
return; 
end 
else 
begin 
if etcb <> nil then 
begin ! ---~- io for a thread completed 
tcb.recvAtimestamp := juliantimestamp; 
tcb.lastAfnum := fnum; 
tcb.lastAerror := error; 
tcb.lastAcount := count; 
call activateAthread (tcb); 
end else 
begin ! ---- some other file completed 
case myAfiletype of 
begin 
begin ! 0, Greceive 
call receiveAcompletion; 
end; 


begin ! 1, config file 
end; 


begin ! 2, logfile 
call logfileAiocomplete (error); 
end; 


begin ! 3, trace file 
end; 


begin ! 4, home terminal 


3.01 
3.01 
3.01 
3.01 
3.01 
3.01 


3.05 


ah 
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1719. 000317 
1720. 000317 
1721. 000317 
1722, GOOST7 
1723. 000320 
1724. 000321 
1725. 000321 
1726. 000321 
1727. 000322 
17268. 000323 
1729. 000323 
1730. 000324 
1731. 000344 
1732. 000344 
1733. 000344 
1734. 000344 

BUF 

COUNT 

DELAY 

DONE 

ERROR 

FNUM 

HIGHATAG 

LOWATAG 

MYAFILETYPE 

RECEIVEACOMPLETION 

TAG 

TCB 
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Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Subproc 

Variable 


Variable, 


end; 
begi 
end; 


begi 


n 


n 


General 


IO Procedures, 


' 5, terminal 
caii debug; 


! 6, server IO, 


call debug; 


end; 


otherwise call 
end; ! 


426 


of 
of 
of 
! 
! 


debug; 


I0, should never happen here 


case myAfiletype 


else other file complete 
else for fnum - 1 
of main body 
of proc ioAwait 
INT Direct 
INT Direct 
INT (32) Direct 
INT Direct 
INT Direct 
INT Direct 
INT Direct 
INT Direct 
INT Direct 
%000000 
INT (32) Direct 
STRUCT-I Indirect 


IOAWAIT 


should never happen here 


L+012 
L+007 
L+003 
L+011 
L+006 
L+O05 
L+001 
L+002 
L+010 


L+001 
L+001 
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éh 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000027 
000027 
000066 
000066 
000111 
000126 
000126 
000126 
000126 
000126 
000126 
000126 
000133 
000142 
000142 


000143 
000143 
000143 
000143 
000143 
000143 
000143 
000143 
000143 
000144 
000163 
000170 
000170 
000174 
000177 
000201 
000201 
000205 
000211 
000215 
000217 
000226 
000232 
000232 
000236 
000240 
000242 
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PHDBAPHDAHABLABDWWAWAWWWWNHNNNNA === 


begin 


struct .stAmsg (startupAmsgAr) ; 
int (32) tag; 


int fnum, 
error, 
-buffer; 
string rAerror = ‘PP’ := 
[“Unable to read startup message, error ?####", 0, %377), 
ignore = ‘P’ ;= 
["“Parameter ignored: ", 40* ["\"], 0, %377], 
DadAarrival = ‘P’ ;= 
["Unknown arrival type. Allowed type = ", 
“{Maximum,Constant,Random}", 0, %377]); 
subproc upshift (buf, 1); 
string .buf; int 1; 
begin 
use x; 
for x := 0 to 1-1 do 
if Galpha (buf [x]) then buf[x] := buf[x] land %337; 
drop x; 
end; 
Variable STRING Indirect S-002 
Variable INT Direct $-001 
subproc scanAstartup; 
begin 
string .comma, .last, .first, .next, .save, saveAchar; 
int i, status, found, commandAlength, inputAlength, index, 
-P (startupAparamAda) ; 
begin 
for i:= 0 to maxAkeyword do startupAparameter [i].flags 
startupparameter [param\default].name’:=’stAmsg.default for 8; 
@next := @estAmsg.parm; 
if not next then call printAhelp; ! then exit ! 
while next do 
begin 
scan next until “," -> @comma; 
scan next while " " -> efirst; 
scan first until “ " -> @last; 
@save := @efirst; 
@last := $min (@last, @comma); 
inputAlength := @last - @first; 
call upshift (first, inputAlength); 
i := 0; 
found := false; 


“ee he ee 2 


.00 


burocoo?r 


If soul. si 
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000242 
000252 
000252 
000252 
000270 
000270 
000272 
000276 
000303 
000315 
000327 
000327 
000336 
000336 
000336 
000336 
000342 
000353 
000356 
600360 
000360 
000360 
000375 
000376 
000376 
000376 
000376 
000376 
000414 
000415 
000415 
000415 
000424 
000426 
000426 
000426 
000435 
000437 
000437 
000437 
000455 
000456 
000460 
000475 
000503 
000503 
000505 
000506 
000510 
000510 
000512 
000514 
000534 
000536 
000541 
000550 
000551 
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DHDHANAIAAIAADAHANTMDANMODDMDMDOOANMADMDYNMADAONMADADADAAMNNOMDOHDMDHMHOOMTIUWODAA 


while not found and (commandAlength := paramAkeywords[i]) do 
begin 
if first = paramAkeywords [i+2] for inputAlength and 
inputAlength = commandAlength then 
begin 
found := true; 
scan last while " " -> @first; 
rscan comma [-1] while “ “ -> @last; 
inputAlength := $max (0, @last - @first + 1); 
@p := @startupAparameter [{i1/11 + 1]; 
case paramAkeywords [i+1] of 
begin 
'0 name ! 
begin ! a device name must be supplied 
Call upshift (first, inputAlength); 
if first = "#MYTERM" !for 7! then 
cal) myterm (p.name) 
else 
if inputAlength <> 
fnameexpand (first, p.name, stAmsg.default) 
then found := false; 
end; 


'1 consta! 


LOADGENAINIT, initialization of the program 


begin ! a numeric parameter must be supplied 


if numin (first, p.value, 10, status) 
<> @last + 1 or status 


then found := false; 
end; 
{2 noner ! 
begin ! no parameter 
if first and first <> "," then found := 
end; 
'3 stra ! 
begin ! string of 24 char max 
p.name ’:=' 12¥*[{" "]; 
if inputAlength then 
p.sAname ‘:=’ first for 
$minCinputAlength, 24) 
else found := false; 
end; 
otherwise found := false; 


end; !case 
if found then p.setup := true; 
end; ! 
1:= i + 11; 
end; !of while not found 
if not found then 


begin 
saveAchar := comma; 
comma := 0; 
call logAprint (ignore, @save); 
comma := savedAchar; 
end; 
@next := if comma then @ecomma + 1 else @comma; 


end; !while next do 


false; 


NNNNNNN 


.00 
.00 
.00 
.00 
.00 
00 
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1846. 000551 2 3 feseSasoreess-s$-45-sS5S2-= ! 2.00 
1847. 000551 2 3 ! Process Startup Params ! 2.00 
1848. 000551 2 3 Pesos SSR Saas See eS ! 2.00 
1849. 000551 2 3 ! initialize ARRIVALATYPE 2.00 
1850. 000551 2 3 @p := @startupAparameter[ paramAarrival ]; 2.00 
1851. 000554 2 3 call upshift (p.sAname, 24); 2.00 
1852. 000561 2 3 if p.setup then 2.00 
1853. 000565 2 3 if p.SsAname = "R" then arrivalAtype := ! Random 2.00 
1854. 000572 2 3 else if p.sAname = "C" then arrivalAtype := 1 ! Constant 2.00 
1855. 000602 2 3 else if p.sAname = "M" then arrivalAtype := ! Maximum 2.00 
1856. 000612 2 3 else begin 2.00 
1857. 000615 2 4 call logAprint (badAarrival); 2.00 
1858. 000635 2 4 call abend; 2.00 
1859. 000642 2 4 end; 2.00 
1860. 000642 2 3 ! initialize with ARRIVALARATE 2.00 
1861. 000642 2 3 @p := @startupparameter[ paramAtxrate ]; 2.00 
1862. 000645 2 3 if p.setup then rate := $abs (p.value); 2.00 
1863. 000655 2 3 ! ARRIVAL=max takes precedence over TXRATE 2.00 
1864. 000655 2 3 if not arrivalAtype then rate := 0; !max rate! 2.00 
1865. 000661 2 3 ! initialize with TX100 (max number of replayed tx‘s) 2.02 
1866. 000661 2 3 @®p := @startupAparameter| paramAtx100 1]; 2.02 
1867. 000664 2 3 if p.setup then 2.02 
1868. 000670 2 3 txmax := $db1l ($abs (p.value}) * 100d 2.02 
1869. 000670 2 3 else 2.02 
1870. 000704 2 3 txmax := 2000000d; ! a huge number ! 2.02 
1871. 000707 2 3 ! initialize with startup DELAY between terminals 2.03 
1872. 000707 2 3 @p := @startupAparameter[ paramAdelay J]; 2.03 
1873. 000712 2 3 if p.setup then 2.03 
1874. 000716 2 3 startAdelay := $abs (p.value) 2.03 
1875. 000716 2 3 else 2.03 
1876. 000725 2 3 startAdelay := 50; !500 ms! 2.03 
1877. 000727 2 3 ! initialize with RN seed 3.06 
1878. 000727 2 3 @p := @estartupAparameter[ paramArnseed ]; 3.06 
1879. 000732 2 3 if p.setup then 3.06 
1880. 000736 2 3 if p.value > O and p.value < 41 then 3.07 
1881. 000744 2 3 seed1 := seed [p.value - 1]; 3.06 
1882. 000751 2 3 
1883. 000751 2 3 end; tof setup body 
1884. 000751 2 2 end; ! of subproc scanAstartup; 

COMMA Variable STRING Indirect $S-014 

COMMANDALENGTH Variable INT Direct S-003 

FIRST Variable STRING Indirect $-012 

FOUND Variable INT Direct $-004 

I Variable INT Direct S-006 

INDEX Variable INT Direct S-001 

INPUTALENGTH Variable INT Direct $-002 

LAST Variable STRING Indirect $-013 

NEXT Variable STRING Indirect $-011 

p Variable,32 STRUCT-I Indirect $-000 

SAVE Variable STRING Indirect $-010 

SAVEACHAR Variable STRING Direct $-007 

STATUS Variable INT Direct S-005 
1885. 000773 1 1 
1886. 000773 1 £,»>~°»YSSe SSSR HSS SoSSSsSSs 2.00 
1887. 000773 1 1 Body of LOADGENAINIT 2.00 


sp 


Ip 
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1888. 
1889. 
1890. 
1891. 
1892. 
1893. 
1894. 
1895. 
1896. 
1897. 
1898. 
1899. 
1900. 
1901. 
1902. 
1903. 
1904. 
1905. 
1906. 
1907. 


BADAARRIVAL 


SCANASTARTU 
STAMSG 

TAG 

UPSHIFT 
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000773 
000773 
001001 
901010 
001022 
001025 
001036 
001036 
001046 
001055 
001104 
001111 
001131 
001131 
001132 
001132 
001135 
001142 
001152 
001152 


p 


ee eek eh et et 


=m" NNNNNNNNNNNNNNNNN — — 


call sopen 


LOADGENAINIT, 


begin !body of proc loadgenAinit 
receive.filename ‘:=’ "$receive 
Creceive.filename, 


Pp re eee 
receive.t 


initialization 


call myterm (hometerm.filename) ; 


call open (hometerm.filename, 


call read (receive.filenum, 
call awaitio (receive.filenum,,,, 
call fileinfo (receive.filenum, 
if error or stAmsg.id <> sysmsgAstartup then 


end; 


end; 


call logAprint (rAerror, error); 
call scanAstartup; 
@buffer receive.bufaddr @receiveAbuffer; 
tag := buildAiotag (,receiverfileA); 
call readupdate (receive.filenum, buffer, 
! body of proc loadgenrinit 
Variable STRING Direct 
Variable INT Indirect 
Variable INT Direct 
Variable INT Direct 
Variable STRING Direct 
Variable STRING Direct 
Subproc %*000143 
Variable,1122 STRUCT Indirect 
Variable INT (32) Direct 
Subproc %000126 


stAmsg, 


error); 


256,, 


of the program 


my 
# 
aA 


~ om _ 
UVpPoricrtt 


hometerm.filenum) ; 


P+000 
L+006 
L+005 
L+004 
P+000 
P+000 


L+001 
L+002 


tag); 


$len (startupAmsgAA)); 
3000d); 


16FEBB87 


(ey) 
© 
{¥] 
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1909. 000000 


0.60 proc printAhelp; 2.00 
1910. 000000 1 oO ) Sesser SSesSe5 
1911. 000000 1 O begin 
1912. ooooo00 1 1 string .banner [0:59]; 3.03 
1913. 000000 1 #1 string hi = ’P’ ;= [60*("\"},0,%377], 3.03 
1914. 000037 1 #1 h2 = ‘PP’ 3= [" ",0,%377], 
1915. 000041 1 #1 h3 = ’P’ ;:= [" ", 
1916, 000042 1 #1 “TXGEN [LOG <filename>, ] -- Error File", 
1917. 000072 1 #1 0,%377], 
1918. 000073 1 1 nh4 = ‘PP’ ;= [" eee 
1919. 000074 1 #1 ie (CONFIG <filename>, | -- X25 PVC Definition", 
1920. 000130 1 1 0,%377], 
1921. 000131 1 #1 AS “Pe ops “Ls, 
1922. 000132 1 1 [SCRIPT <filename>, ] -- ET1 transaction script to replay", 
1923. 000175 1 } 0,%377), 
1924, 000176 1 1 n6 = ‘°P’ ;= [" aes 
1925. 000177 1 #1 " [ARRIVAL {Maximum|Constant|Random},] -- Arrival Process", 
1926. 000236 1 #1 0,%377], 
1927. 000237 1 = #1 h7 = “P’ 3= [" ", 
1928. 000240 i 1 ; [TXRATE <rate*10> ,] -- 10 * Arrival Rate (in tps)”, 
1929. 000300 1 1 0,%377], 
1930. 000301 1 1 h8 = ’P’ := [{" ; 
1931. 000302 1 1 u [TXLOG <filename>, ] -- Tx capture file", 
1932. 000335 1 1 0,%377], 
1933. 000336 1 1 ng9 = ’P’ := gE" “, 2.02 
1934. 000337 1 1 : {TX100 <count/100>, ] -- Hundreds of Tx to be replayed", 2.02 
1935. 000401 1 1 0,%377], 2.02 
1936. 000402 1 1 nh1i0= ‘P’ ;:= [{" aes 2.03 
1937. 000403 1 1 ‘ {DELAY <unit=.01s>, ] -- Startup delay between terminals", 2.03 
1938. 000446 1 #1 0,%377], 2.03 
1939. 000447 1 = #1 hil= *P’% 3:= [" "“, 2.03 
1940. 000450 1 1 a [MAXTERM <n> | —- Max. number of active terminals", 2.03 
1941. 000513 1 1 0,%377], 2.03 
1942. 000514 1 1 h12= ‘P’ := [" mane 2.03 
1943. 000515 1 1 u [MAXTX <n> | —-- Max. number of concurrent TX’s", 2.03 
1944. 000557 1 =~» 1 0,%377], 2.03 
1945. 000560 1 1 Hi3= ’P’ 3s= [" “, 3.06 
1946. 000561 1 1 " [RNSEED [1:40] j -- Random number seed index ue 3.07 
1947. 000623 1 1 0,%377]; 3.06 
1948. 000624 1 1 
1949. 000624 1 1 startup := 2; 
1950. 000632 1 1 logNenable := true; 
1951. 000634 1 1 banner ‘:=' “TXGEN - ET1 Load Generator (" & 3.03 
1952. 000634 1 #1 txgenrvs & ") - PAM"; 3.03 
1953. ooog662 1 1 call logAprint (h1, @banner); 3.03 
1954. 000702 1 1 call logAprint (h2); 
1955. 000722 1 #1 call logAprint (h3); 
1956. 000742 1 #1 call logAprint (h4); 
1957. 000762 1 #1 call logAprint (h5); 
1958. 001002 1 1 call logAprint (h6); 
1959. 001022 1 1 call logAprint (€h7); 
1960. 001042 1 #1 call logAprint (h8); 
1961. 001062 1 #1 call logAprint (h9); 
1962. 001113 1 #1 call logAprint (h10); 
1963. 001133 1 1 call logAprint (h11); 
1964. 001153 1 #1 call logAprint (h12); 
1965. 001173 1 1 call logAprint (h13); 


3b 
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1966. 001213 1 1 call logAprint (h2); 

1967. 001233 1 1 

1968. 001233 1 1 call stop; 

1969. 001240 1 1 end; !proc printAhelp! 
BANNER Variable STRING Indirect L+001 
H1 Variable STRING Direct P+000 
H10 Variable STRING Direct P+000 
H11 Variable STRING Direct P+000 
H12 Variable STRING Direct P+000 
H13 Variable STRING Direct P+000 
H2 Variable STRING Direct P+000 
H3 Variable STRING Direct P+000 
H4 Variable STRING Direct P+000 
H5 Variable STRING Direct P+000 
H6 Variable STRING Direct P+000 
H7 Variable STRING Direct P+000 
HB : Variable STRING Direct P+000 
HO Variable STRING Direct P+O000 


sp 
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1971. 000000 O 
1972. oooo00 1 
1973. o0oo0oco 1 
1974. 000000 1 
1975. 000000 1 
1976. ooo0o0o00 1 
1977. 000033 1 
1978. 000033 1 
1979. 000066 1 
1980. 000066 1 
1981. 000066 1 
1982. 000066 1 
1983. 000066 1 
1984. 000066 1 
1985. 000066 1 
1986. 000105 1 
1987. 000113 1 
1988. 000124 1 
1989. 000137 1 
1990. 000145 1 
1991. 000173 1 
1992. 000173 1 
1993. 000202 1 
1994. 000223 1 
1995. 000236 1 
1996. 000260 1 
1997. 000311 1 
1998. 000311 1 

ELAPSEDATIME 

H1 

JD 

LCT 

M1 

MS 1 

MSG1 

MSG2 

31 

T 

TSASTART 

TSASTOP 
1999. 000000 0 


0 


proc printAtimes (tsAstart, tsAstop); 


fixed tsAstart, tsAstop; 


ES 


begin 
string msgi = ‘’P’ := 
[" Start Time: ##:#4#4:## "," Stop Time: 
string msg2 = ‘P’ := 
["Elapsed Time: ##:##4:#4#.###"," Cpu Time: 


fixed 


int(32) jd; 
int ni, 


int 


elapsedAtime 
cal] 


hI 


call 
call 


end; 


interprettimestamp (ict, 
ogAprint (msgl1, nt, m1, 


:= t [0]; 


:= t [3]: m1 
] 


s1 


.t [0:7]; 


elapsedAtime, lIct; 


» msi; 


converttimestamp (tsAstart): 
interprettimestamp (Ict, 
2= t [4]; 
converttimestamp (tsAstop ); 
t); 


t); 
:= t [5]; 


HE:#H IHF "|, 0, 4377]; 


HH HHH. HH", O, 2377); 


t [325 t. (4d, t 153s 


tsAstop - tsAstart; 


mio: 


= t [1]; 


'proc printAtimes! 


Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 


FIXED (0) 
INT 

INT (32) 
FIXED (0) 
INT 

INT 
STRING 
STRING 
INT 

INT 

FIXED (0) 
FIXED (0) 


convertprocesstime (elapsedAtime, t, 
:= t [2]; 
convertprocesstime (myprocesstime, t, 
logAprint (msg2, h1, m1, 


msi, t, 


Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Indirect 
Direct 
Direct 


msi: 
£111, Clade st 
[1], [ 


» tl2)], tl3), tl4)); 


[3], tl4]); 
31); 


16FEB87 


17:56:41 


a¢ 


PAGE 50 


2001. 
2002. 
2003, 
2004. 
2005. 
2006. 
2007. 
2008. 
2009. 
‘2010. 
2011. 
2012. 
2013. 
2014. 
2015. 
2016. 
2017, 
2018. 
2019. 
2020. 
2021. 
2022. 
2023. 
2024. 
2025. 
2026. 
2027. 
2028. 
2029. 
2030. 
2031. 
2032. 
2033. 
2034. 
2035. 
2036. 
2037. 
2038. 
2039. 
2040. 
2041. 
2042. 
2043. 
2044. 
2045. 


TSASTART 
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000000 
000000 
ooo000 
6006006 
000000 
000000 
000000 
000011 
000015 
000017 
000022 
000022 
000023 
000026 
000031 
000034 
000034 
000035 
000036 
000037 
000041 
000041 
000043 
000043 
000051 
000052 
000053 
000054 
000054 
000057 
000057 
000061 
000061 
000072 
000073 
000073 
000101 
000106 
000106 
000106 
000121 
000121 
000125 
000125 
000132 


ee eet est et ee st 


cea ke a ed Sh ack RS RROD KO RERD DO 2 GE SUSROLRO ND RQ UMN pec a ee ee SS 


TXGEN, Main procedure 


proc txgen main; 


fixed tsAstart; 


! start up processing 
tsAstart := juliantimestamp; 
SswitchA3 := $switches.<3>; 


startup := 2; 

nextAthread := activeAthreads := 0; 
call initAgeneralApool; 

call queuerinit (readyAlist); 

call queueAinit (timeAlist); 

call queueAinit (suspendAlist); 
call loadgenAinit; 

call initAlogfile; 

call initAthreads; 

startup := 1; 


while not shutdown do 

begin 
while queueAempty (readyAlist) do call ioAwait; 
call selectAthread; 
call processAthread; 

end; 


if txstatArecs > O then ! need to flush TXLOG buffer 
begin 
@etxstat := txlog.bufaddr; 
call write (txlog.filenum, txstat, 
txstatArecs * $len (txAdef)); 
if <> then 


call iodevAfailure (txlog.filenum, txlog. filename, 


writeAattempt) ; 
call close (txlog.filenum); 
end; 
call printAtimes (tsAstart, juliantimestamp) ; 


while logfile.ioAbusy do call ioAwait; 


call stop; 


end; !of txgen 


Variable FIXED (0) Direct L+001 


NJ 


3. 
3. 
3. 


WDOWWWWOWwWWW 


[a] 
cc} 


01 
01 
05 
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i 


ABEND 
ABORTTRANSACTION 
ACTIVATEATHREAD 
ACTIVEATHREAD 
ACTIVEATHREADS 
ALLOCATEABUFFER 
ARRIVALATYPE 
ASSIGNATHREAD 
AWAITIO 
AWALTIOADONE 
BUFFERASIZE 
BUILDAIOTAG 
CANCELTIMEOUT 
CANCELAT IMERADONE 
CLOSE 

CONFIG 
CONFIGAFILEA 
CONF IGARECORDAA 


1 TERMINALANAME[O: 15] 


1 TERMINAL 
CONSTA 
CONTROL 
CONTROLAATTEMPT 
CONVERTPROCESSTIME 
CONVERTTIMESTAMP 
CREATE 
DEALLOCATEABUFFER 
DEBUG 
DEFINEPOOL 
DLOGA 
ERR 
FALSE 
FILEINFO 
FNAMECOLLAPSE 
FNAMECOMPARE 
FNAMEEXPAND 
GENERALAPOOL 
GENERALAPOOLABUFFER 
GENERALAPOOLASIZE 
GENERALAPOOLAA 

1 HEADER[O:19] 

1 STATUS 
GETPOOL 
GUARDIANADEVSUBTYPE 
GUARDIANADEVTYPE 
GUARDIANATPYETTMP 
GUARDIANATYPECARD 
GUARDIANATYPEDISC 
GUARDIANATYPEPRINTER 
GUARDIANATYPEPROCESS 
GUARDIANATYPERECEIVE 
GUARDIANATYPETAPE 
GUARDIANATYPETERM 
GUARDIANATYPEX25PTP 
HOMETERM 
HOMETERMAFILEA 


Proc 

Proc 

Proc 
Variable,426 
Variable 
Proc 
Variable 
Proc 

Proc 
Literal 
Literal 
Proc 

Proc 
Variable 
Proc 
Variable,40 
Literal 
Variable 


Variabie,52 
Variable 
Literal 
Variable 
0,2 
50,2 
Proc 
Define 
Define 
Literal 
Literal 
Literal 
Literal 
Literal 
Literal 
Literal 
Literal 
Literal 
Variable,40 
Literal 


INT 


STRUCT~I 
INT 
INT 


INT (32) 
INT 


STRUCT 
INT 

TEMPLATE ,20 
STRING 

INT 

INT 


INT 


FIXED (0) 


INT 
REAL (64) 


INT 


INT 
INT 

INT 

STRUCT 
STRING 

INT 

TEMPLATE ,52 
INT 

INT 

INT (32) 


External 
External 
%000000 
Indirect 
Direct 
%000030 
Direct 
%*000000 
External 
*%000005 
%000310 
%O000000 
External 
Direct 
External 
Direct 
%000001 


Direct 
Direct 
%000001 
External 
%000004 
External 
External 
External 
%000031 
External 
External 
%000000 
%*O000000 
%*000000 
External 
External 
External 
External 
Direct 
Indirect 
%040000 


Direct 
Direct 
External 
<10:15> 
<4:9> 
%000025 
%000010 
%000003 
%000005 
%000000 
*000002 
%OO00004 
*000006 
%000011 
Direct 


%000004 


#GLOBAL+000 
#GLOBAL+210 


#GLOBAL+220 


#GLOBAL+235 


#GLOBAL+076 


#GLOBAL+010 
#GLOBAL+237 


#GLOBAL+056 
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TAADATA 
TAADATAAA 


F1 
ACCOUNT[0O:11] 
F2 
TELLER[O:11] 
F3 
BRANCH[0:11] 
F4 
AMOUNT[0:11] 


ITAARESP 
ITAARESPAA 


1 
1 
1 
1 
1 


INI TAGENERALAPOOL 


LENGTH 


TERMANAME[0: 11] 


STARTATIME 
XTIME[O:1] 
RESPATIME 


INITALOGFILE 
INITATHREADS 
INTADDR 
INTERACTIVE 


INTERPRETTIMESTAMP 
INTERAACTIVEADATA 


IODEVACHECK 
TODEVAFAILURE 
IODEVAINIT 
TODEVAA 


1 
1 
1 
1 
1 


1 


NAMEA[O: 23] 
FILENAME 
FILENUM 
TYPE 

ERROR 
BUFADDR 


TOACOMPLETE 
TOAPENDING 
IOAWAIT 
JULIANTIMESTAMP 
LOADGENAINIT 
LOGFILE 


LOGFILEAIOCOMPLETE 


LOGFILEAA 


1 


1 


1 
1 


MSGAQ 
2 SUCC 
2 PRED 
DEV 


2 FILENAME[O:11] 


2 FILENUM 

2 TYPE 

2 ERROR 

2 BUFADDR 
ACTIVE 
TOABUSY 


LOGAENABLE 
LOGAFILEA 
LOGAMSGAA 


1 


QUEUE 
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Variable,64 


Variable 
0,1 
1,1 
15,1 
16,1 
32,1 
33,1 
47,1 
50,1 
Variable,52 
Variable 
0,2 
2,2 
32,10 
42,4 
42,10 
Proc 
Proc 
Proc 
Define 
Define 
Proc 
Variable 
Define 
Proc 
Proc 
Variable 
0,1 
0,2 
30,2 
32,2 
34,2 
36,2 
Define 
Define 
Proc 
Proc 
Proc 


Variable,50 
Proc 
Variabl 


Variable 

Literal 

Variable 
0,4 


STRUCT 
TEMPLATE .64 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRUCT 
TEMPLATE ,52 
INT 

INT 

FIXED (0) 
INT (32) 
FIXED (0) 


INT (32) 
INT 


TEMPLATE ,40 
STRING 

INT 

INT 

INT 

INT 

INT 


FIXED (0) 
STRUCT 


TEMPLATE ,50 
SUBSTRUCT 
INT 

INT 
SUBSTRUCT 
INT 


INT 
TEMPLATE ,10 
SUBSTRUCT 


GLOBAL MAP 


Indirect #GLOBAL+236 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Indirect #GLOBAL+236 

Direct 

Direct 

Direct 

Direct 

Direct 

%000027 

%O000000 

%000113 

(@ $1 ‘*>>’ 1) 

FLAGS. <3> 

External 

Direct #GLOBAL+240 

IF <> THEN CALL IODEVAFAILURE ( $1, $2, 
%*000061 

%000051 


Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
FLAGS.<1> 
FLAGS .<2> 
%000103 
External 
%000773 
Direct 
%000010 


#GLOBAL+136 


Direct 
Direct 


Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
%000002 


#GLOBAL+206 


$3) 
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2 SUCC 
2 PRED 

1 LENGTH 

1 DATA 
LOGAPRINT 
MAXAKEYWORD 
MAXATHREADS 
MAXATXAQUT 
MEANAPERATHREAD 
MYPROCESSTIME 
MYTERM 
NAMEA 
NEEDSAWORK 
NEGEXP 
NETAQUTAOFAORDER 
NEXTATHREAD 
NIL 
NONEA 
NUMBERABUSY 
NUMBERANOTAQOBTAINABLE 
NUMIN 
NUMOUT 
OPEN 
OPENAATTEMPT 
OPENAEXCLUSIVE 
OPENAGETMSG 
OPENANOWAIT 
OPENAPROTECTED 
OPENAREADONLY 
OPENAREADWRITE 
OPENASHARED 
OPENAWRITEONLY 
PARAMAARRIVAL 
PARAMACONFIG 
PARAMADEFAULT 
PARAMADELAY 
PARAMAKEYWORDS 
PARAMALOG 
PARAMAMAXTERM 
PARAMAMAXTX 
PARAMARNSEED 
PARAMASCRIPT 
PARAMATX100 
PARAMATXLOG 
PARAMATXKRATE 
POSITION 
PRINTAHELP 
PRINTATIMES 
PROCESSATHREAD 
PROCESSATHREADASTATE 
PUTPOOL 
QUEUEAANY 
QUEUEAEMPTY 
QUEUEAGET 
QUEUEAINIT 
QUEVEAPUT 
QUEUEAA 


Proc 
Literal 
Literal 
Variable 
Variable 
Proc 
Proc 
Literal 
Define 
Proc 
Literal 
Variable 
Literal 
Literal 
Literal 
Literal 
Proc 
Proc 
Proc 
Literal 
Literal 
Literal 
Literal 
Literal 
Literal 
Literal 
Literal 
Literal 
Literal 
Literal 
Literal 
Literal 
Variable 
Literal 
Literal 
Literal 
Literal 
Literal 
Literal 
Literal 
Literal 
Proc 
Proc 
Proc 
Proc 
Proc 
Proc 
Define 
Define 
Proc 
Proc 
Proc 
Variable 


INT 
INT (32) 
FIXED (0) 
INT 


INT (32) 


INT 


TEMPLATE ,4 


Direct 
Direct 
Direct 
Direct 
%0000006 
%000013 
%000372 


Direct #GLOBAL+233 
Direct #GLOBAL+t+221 


External 
External 
%000000 
FLAGS. <Q> 
%000000 
%*000011 


Direct #GLOBALT207 


%000000 
%000002 
%000001 
%000015 
External 
External 
External 
%*000000 
%000020 
%040000 
%000001 
%*O00006G 
%002000 
%O000000 
%000000 
%004000 
%000004 
%000001 
%000000 
%000010 
Direct P+000 
%000003 
%000011 
%*%000012 
%000013 
%*000002 
%000007 
%000006 
%000005 
External 
%*000624 
%*OO0066 
%000000 
%000000 
External 
( $1.SUCC <> e $1) 
( $1.SUCC = @ $1) 
%000000 
%000000 
%000000 
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RANDINT 
RATE 

READ 
READUPDATE 
READVALIST 
READAATTEMPT 
RECEIVE 
RECEIVEABUFFER 
RECEIVEAFILEA 
REPLY 
SAMPLEAARRIVAL 
SAVEATHREADASTATE 
SCRIPT 

SEED 

SEED1 
SELECTATHREAD 
SERVERAFILEA 
SETUP 

SHUTDOWN 
SIGNALTIMEOUT 
STARTUP 
STARTUPAMSGAA 

1 ID 

1 DEFAULT[O:7] 

1 IN[O:11] 

1 OUT{On41F] 

1 PARM([0:527] 
STARTUPAPARAMETER 
STARTUPAPARAMAA 

1 NAME([O:11] 

1 VALUE 

1 FLAGS 

1 SANAME 
STARTADELAY 
STARTATIME 
STOP 
STRA 
SUSPENDALIST 
SUSPENDATHREAD 
SWITCHA3 
SY SMSGABREAK 
SY SMSGASTARTUP 
SY SMSGATIME 
TCBAA 

1 READVAQ 

2 SUCC 
2 PRED 
1 TERMINAL 
2 NAMEA[O:23] 
2 NAME 
2 FNUM 

1 INDEX 

1 STATE 

1 SUBSTATE 


Proc 

Proc 
Variable 
Proc 

Proc 
Variable,4 
Literal 
Variable,40 
Variable 
Literal 
Proc 

Proc 

Proc 
Variable,40 
Variable 
Variable 
Proc 
Literal 
Define 
Variable 
Proc 
Variable 
Variable 


102,1 
Variable,32 
Variable 


Variable 
Variable 
Proc 
Literal 
Variable,4 
Proc 
Variable 
Define 
Define 
Define 
Variabl 


INT 
INT 
REAL (32) 
INT 
INT 


STRUCT 
INT 


INT (32) 


STRUCT 
INT (32) 
INT (32) 


INT 
INT 


INT 

TEMPLATE ,1122 
INT 

INT 

INT 

INT 

STRING 

STRUCT 
TEMPLATE ,32 


FIXED (0) 


INT 
STRUCT 


INT 


TEMPLATE ,426 
SUBSTRUCT 
INT 

INT 
SUBSTRUCT 
STRING 

INT 

INT 

INT 

INT 

INT 


GLOBAL MAP 


Direct 
Direct 
%000053 
*%000000 
Direct 
External 
External 
Direct 
%000001 
Direct 
Indirect 
%000000 
External 
%000000 
%000000 
Direct 
Indirect 
Direct 
%000000 
%000006 
FLAGS. <Q> 
Direct 
External 
Direct 


Direct 
Direct 
Direct 
Direct 
Direct 
Indirect 


Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
External 
%000003 
Direct 
%000000 
Direct 
-20 

-4 

-22 


Direct 
Direct 


Direct 
Direct 
Direct 
Direct 
Direct 
Direct 


#GLOBAL+217 


#GLOBAL+001 


#GLOBAL+036 
#GLOBAL+236 


#GLOBAL+116 
#GLOBAL+226 
#GLOBAL+224 


#GLOBAL+204 


#GLOBAL+205 


#GLOBAL+035 


#GLOBAL+216 
#GLOBAL+212 


#GLOBAL+005 


#GLOBAL+211 


16FEB87 


17:56:41 


Be 


reaueE wy PAIL «KAMP T LE RAYET! I RRRIVUO SD Lid 


FLAGS 
LASTASTATE 
LASTASUBSTATE 
LASTALOC 
LASTAFNUM 
LASTAERROR 
LASTACOUNT 
SENDATIMESTAMP 
RECVATIMESTAMP 
THINKATIME 
ENDATIME 

1 DATAABUFFER[0:99] 
TERMINALAFILEA 
TFILEAFILEA 
THREADS 
THREADAACTIVE 
THREADAAWAITIO 
THREADACLOSED 
THREADACOUNT 
THREADAREADY 
THREADASTATEAACTIVE 
THREADASTATEACLOSED 
THREADASTATEAREADY 
THREADASTATEASTOPPING 
THREADASTATEATHINK 
THREADASTOPPING 
THREADATHINK 
TIMEALIST 
TRACEAFILEA 
TRUE 
TXCOUNT 
TXGEN 
TXGENAVS 
TXLOG 
TXMAX 
TXSTAT 
TXSTATABUFSIZE 
TXSTATANUMRECS 
TXSTATARECS 
TXADEF 

1 TERMACOUNT 

1 TERMAINDEX 

1 ARRIVALARATE 

1 SENDATIMESTAMP 

1 

‘ 


ane eee re eee reer en ee re reer Sven Warem 9 


NEXTAARRIVALATIME 
RESPONSEATIME 
1 FILLER 

TXAOUTSTANDING 
WRITE 
WRITEREAD 
WRITEAATTEMPT 
WRITEALOGFILE 
WRAATTEMPT 


44,2 
46,2 
50,2 
52,2 
54,2 
56,2 
60,2 
62,10 
72,10 
102,4 
106,10 
116,2 
Literal 
Literal 


Variable,426 


Proc 

Proc 

Proc 
Variable 
Proc 
Literal 
Literal 
Literal 
Literal 
Literal 
Proc 

Proc 
Variable,4 
Literal 
Literal 
Variable 
Proc 
Define 
Variable,40 
Variable 
Variable,40 
Literal 
Literal 
Variable 
Variable 


Variable 
Proc 
Proc 
Literal 
Proc 
Literal 


FIXED (0) 
FIXED (0) 
INT (32) 
FIXED (0) 
INT 

INT 

INT 
STRUCT-I 


STRUCT 
INT 
INT 
INT (32) 


STRUCT 


TEMPLATE 

INT 

INT 

INT 

FIXED (0) 
INT (32) 

INT (32) 


INT 


INT 


INT 


MULVYAe maT 


Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Oirect 
Direct 
Direct 
Direct 
%000005 
%000007 
Indirect 
%000132 
%000000 
%000000 
Direct 
%000000 
%000002 
%O000000 
%000001 
%000003 
%000004 
%000046 
%000134 
Direct 
%000003 
%177777 
Direct 
%000000 
["vs 3.08"] 
Direct 
Direct 
Indirect 
%0 10000 
%000200 
Direct 


Direct 
Direct 
Direct 
Direct 
Direct 
Direct 


Direct 
External 
External 
%000002 
%000000 
%000003 


#GLOBAL+007 


#GLOBAL+223 


#GLOBAL+003 


#GLOBAL+231 


#GLOBAL+162 
#GLOBAL+227 
#GLOBAL+202 


#GLOBAL+203 


#GLOBAL+234 


IiuUrebvpbors 


f 


790.41 


PAGE 56 
ENTRY 
SP PEP 
00 6031 
00 O15 
00 027 
00 040 
00 O16 
00 002 
00 003 
00 014 
00 013 
00 037 
oo 041 
00 042 
00 043 
00 044 
00 O12 
00 010 
00 O05 
00 045 
00 046 
00 036 
00 O35 
00 017 
00 021 
00 69020 
00 004 
00 006 
00 007 
00 032 
00 033 
00 034 
00 024 
00 030 
00 022 
00 023 
00 025 
00 O26 
00 047 
oo 011 


$BASE.GRAYTGUN.TXGEN3B8S [1] 


BASE 


003441 
001433 
003372 
005125 
001535 
000145 
000417 
001344 
001271 
003550 
005147 
005527 
005746 
006314 
001207 
000614 
000513 
007510 
011005 
003540 
003503 
001630 
001672 
001647 
000421 
000536 
000560 
003453 
003467 
003500 
002076 
003431 
001677 
001775 
002705 
003065 
011321 
001117 


POINT MAP BY NAME 


LIMIT 


003452 
001534 
003430 
005146 
001627 
000416 
000420 
001432 
001343 
005124 
005526 
005745 
006313 
007507 
001270 
001116 
000535 
011004 
011320 
003547 
003537 
001646 
001676 
001671 

000512 
000557 
000613 
003466 
003477 
003502 
002704 
003440 
001774 
002075 
003064 
003371 

011455 
001206 


ENTRY 


003441 
001463 
003372 
005125 
001566 
000145 
000417 
001373 
001271 
003663 
005230 
005600 
006051 
007307 
001217 
000614 
000513 
010334 
011073 
003540 
003503 
001630 
001672 
001647 
000474 
000536 
000560 
003453 
003467 
003500 
002230 
003431 
001677 
001775 
002753 
003221 
011321 
001117 


ATTRS 


NAME 


ACTIVATEATHREAD 
ALLOCATEABUFFER 
ASSIGNATHREAD 
BUILDAIOTAG 
DEALLOCATEABUFFER 
DLOGA 

ERR 

INI TAGENERALAPOOL 
INITALOGFILE 

INI TATHREADS 
ITODEVAFATILURE 
IODEVAINIT 
TOAWAIT 
LOADGENAINIT 
LOGFILEATOCOMPLETE 
LOGAPRINT 

NEGEXP 

PRINTAHELP 
PRINTATIMES 
PROCESSATHREAD 
PROCESSATHREADASTATE 
QUEUEAGET 
QUEUEAINIT 
QUEUEAPUT 

RANDF 

RANDINT 
SAMPLEAARRIVAL 
SAVEATHREADASTATE 
SELECTATHREAD 
SUSPENDATHREAD 
THREADAACTIVE 
THREADAAWAITIO 
THREADACLOSED 
THREADAREADY 
THREADASTOPPING 
THREADATHINK 
TXGEN 
WRITEALOGFILE 


LOAD MAPS 


16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEBB7 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEBB7 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
i6FEB87 
16FEBB7 
16FEB87 
16FEB87 
16FEB87 
16FEBB7 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEBB7 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 


+r. 


Pio 


LANGUAGE 


TAL 
TAL 
TAL 
TAL 
TAL 
TAL 
TAL 
TAL 
TAL 
TAL 
TAL 
TAL 
TAL 
TAL 
TAL 


.GRAYTGUN. 
.GRAYTGUN. 
. GRAYTGUN 
.GRAYTGUN. 
. GRAYTGUN 
.GRAYTGUN. 
.GRAYTGUN. 
.GRAYTGUN. 
.GRAYTGUN. 
. GRAYTGUN. 
. GRAYTGUN 
-GRAYTGUN. 
. GRAYTGUN 
.GRAYTGUN. 
.GRAYTGUN, 
. GRAYTGUN 
.GRAYTGUN. 
. GRAY TGUN 
.GRAYTGUN. 
.GRAYTGUN. 
.GRAYTGUN. 
- GRAYTGUN 
.GRAYTGUN. 
. GRAYTGUN 
. GRAYTGUN 
.GRAYTGUN. 
. GRAYTGUN 
.GRAYTGUN., 
. GRAYTGUN 
-GRAYTGUN. 
.GRAYTGUN. 
.GRAYTGUN., 
.GRAYTGUN. 
. GRAYTGUN. 
.GRAYTGUN. 
.GRAYTGUN. 
. GRAYTGUN 
. GRAYTGUN 


TXGEN38S 
TXGEN38S 


. TXGENSBS 


TXGEN3S8S 


. TXGENS3S8S 


TXGENS8S 
TXGEN38S 
TXGEN38S 
TXGEN38S 
TXGEN385S 


. TXGENS8S 


TXGEN38S 


. TXGEN38S 


TXGENS8S 
TXGEN38S 


. TXGENS8S 


TXGEN38S 


. TXGEN3S8S 


TXGEN38S 
TXGEN38S 
TXGEN3BS 


. TXGENS8S 


TXGEN38S 


. TXGEN38S 
. TXGENS8S 


TXGEN38S 


. TXGEN38S 


TXGEN38S 


. TXGEN38S 


TXGEN38S 
TXGEN38S 
TXGEN38S 
TXGEN38S 
TXGEN38S 
TXGEN38S 
TXGENS8S 


. TXGEN38S 
. TXGEN3S8S 


Ls 


PAUC Of 


READ-ONLY D 
SP BASE 


oo co00050 


PDOASL.URAYIGUN. IAGENSSS { 1] 


ATA BLOCK MAP BY NAME 
LIMIT TYPE MODE 


000144 COMMON STRING 


NAME 


PARAMAKEYWORDS 


LOAD MAPS 


DATE 


16FEB87 


TIME LANGUAGE 


17:56 TAL 


N 16FEB87 


SOURCE FILE 
$BASE.GRAYTGUN. TXGEN38S 


17:56:41 


gS 
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DATA BLOCK MAP BY NAME 


BASE LIMIT TYPE MODE NAME 
000000 000240 COMMON WORD #GLOBAL 
000241 021014 COMMON WORD - #GLOBAL 


LOAD MAPS 


DATE 


16FEBB7 
16FEB87 


TIME LANGUAGE 


17:56 TAL 
17:56 TAL 


16FEB87 


SOURCE FILE 


$BASE.GRAYTGUN. TXGEN38S 
$BASE.GRAYTGUN. TXGEN38S 


17:56:41 


sa 


ENTRY POINT MAP 
CODE SEGMENT O00 


BY LOCATION 


SP PEP BASE LIMIT 

00 O02 000145 000416 
00 003 000417 000420 
00 004 000421 000512 
00 O05 000513 000535 
00 O06 000536 000557 
00 007 O0O0560 000613 
00 010 000614 001116 
00 011 %Q01117 001206 
00 012 001207 001270 
00 013 001271 001343 
00 014 001344 001432 
00 015 001433 001534 
00 016 001535 001627 
00 017 001630 001646 
00 020 001647 001671 
00 021 001672 001676 
00 022 001677 001774 
00 023 001775 002075 
00 024 002076 002704 
00 025 002705 003064 
00 O26 003065 003371 
00 O27 003372 0603430 
00 0380 003431 003440 
00 «(031 003441 003452 
00 O32 003453 003466 
00 033 003467 003477 
00 034 003500 003502 
00 O35 003503 003537 
00 O86 003540 003547 
00 O37 003550 005124 
00 O40 005125 005146 
0O 041 005147 005526 
00 042 005527 005745 
00 043 005746 006313 
00 044 006314 007507 
00 045 007510 011004 
00 O46 011005 011320 
00 O47 O113821 011455 
Code size = 4910 words 


PEP = 40 words 


Global 


ENTRY 


000145 
000417 
000474 
000513 
000536 
000560 
000614 
001117 
001217 
001271 
001373 
001463 
001566 
001630 
001647 
001672 
001677 
001775 
002230 
002753 
003221 
003372 
003431 
003441 
003453 
003467 
003500 
003503 
003540 
003663 
005125 
005230 
005600 
006051 
007307 
010334 
011073 
011321 


P-relative arrays = 61 
Procedures = 
Gap at 32K = O words 


4809 words 


XEP = 29 words 
Code area size = 5 pages 
Resident code size = O pages 


ATTRS 


<<< 


words 


NAME 


DLOGA 

ERR 

RANDF 

NEGEXP 

RANDINT 
SAMPLEAARRIVAL 
LOGAPRINT 
WRITEALOGFILE 
LOGFILEATOCOMPLETE 
INITALOGFILE 

INI TAGENERALAPOOL 
ALLOCATEABUFFER 
DEALLOCATEABUFFER 
QUEUEAGET 
QUEUVEAPUT 
QUEUEAINIT 
THREADACLOSED 
THREADAREADY 
THREADAACTIVE 
THREADASTOPPING 
THREADATHINK 
ASSTGNATHREAD 
THREADAAWAITIO 
ACTIVATEATHREAD 
SAVEATHREADASTATE 
SELECTATHREAD 
SUSPENDATHREAD 
PROCESSATHREADASTATE 
PROCESSATHREAD 
INITATHREADS 
BUILDAIOTAG 
IODEVAFAILURE 
ITODEVAINIT 
TOAWAIT 
LOADGENAINIT 
PRINTAHELP 
PRINTATIMES 

TXGEN 


ee ee eee 


DATE 


16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEBB7 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEBB7 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 
16FEB87 


LANGUAGE SOURCE FILE 


TAL 
TAL 
TAL 
TAL 
TAL 
TAL 
TAL 
TAL 
TAL 
TAL 
TAL 


$BASE. 


$BASE 


$BASE 


$BASE. 
$BASE. 
$BASE. 
SBASE. 
$BASE. 
SBASE. 
$BASE. 
$BASE. 
$BASE. 
$BASE. 
$BASE. 
$BASE. 
$BASE. 
$BASE. 
$BASE. 
SBASE. 
$BASE. 


$BASE 


GRAYTGUN. 
.GRAYTGUN. 
SBASE. 
$BASE. 
$BASE. 
$BASE. 
$BASE. 
$BASE. 
$BASE. 
$BASE. 


GRAYTGUN 
GRAYTGUN 
GRAYTGUN 


GRAYTGUN 


GRAYTGUN 
GRAYTGUN 


GRAYTGUN 
GRAYTGUN 


GRAYTGUN 


GRAYTGUN 


GRAYTGUN 
GRAYTGUN 
GRAYTGUN 


Iorcbng/s 


TAGEN38S 
TXGEN38S 


. TXGEN38S 
GRAYTGUN. 
GRAYTGUN. 


TXGEN38S 
TXGEN38S 


. TXGEN38S 
. TXGENS8S 
GRAYTGUN. 


TXGEN38S 


. TXGEN38S 
GRAYTGUN. 
.GRAYTGUN. 
GRAYTGUN. 
GRAYTGUN. 


TXGEN38S 
TXGEN38S 
TXGEN38S 
TXGEN38S 


. TXGEN386S 
. TXGEN38S 
GRAYTGUN. 
GRAYTGUN. 
GRAYTGUN. 
GRAYTGUN. 
GRAYTGUN. 
GRAYTGUN. 


TXGEN38S 
TXGEN38S 
TXGEN38S 
TXGEN38S 
TXGEN38S 
TXGEN38S 


. TXGEN38S 
. TXGENS8S 
GRAYTGUN. 


TXGENS8S 


. TXGENS8S 
GRAYTGUN. 
GRAYTGUN. 
GRAYTGUN. 
.GRAYTGUN. 
$BASE. 
$BASE. 
$BASE. 
$BASE. 
S$BASE. 
$BASE. 
$SBASE. 
SBASE. 
$BASE. 


TXGEN38S 
TXGEN38S 
TXGEN38S 
TXGEN38S 


. TXGEN38S 
GRAYTGUN. 
GRAYTGUN. 


TXGEN38S 
TXGEN38S 


- TXGEN38S 
. TXGEN38S 
. TXGENS8S 
GRAYTGUN. 
GRAYTGUN. 
GRAYTGUN. 


TXGEN38S 
TAGENS8S 
TXGEN38S 


i/:90:41 
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READ-ONLY DATA BLOCK MAP BY LOCATION 
CODE SEGMENT OO 


SP 


00 


BASE 


CO00050 


LIMIT TYPE 


000144 COMMON 


MODE 


STRING 


NAME 


PARAMAKEYWORDS 


LOAD MAPS 


DATE 


16FEB87 


TIME LANGUAGE 


17:56 TAL 


SOURCE FILE 


$BASE.GRAYTGUN. TXGENS8S 


PALE of PBASE.GRAYIGUN. [AGENSBS [1] 


DATA BLOCK MAP BY LOCATION 
BASE LIMIT TYPE MODE NAME 


000000 000240 COMMON WORD #GLOBAL 
000241 021014 COMMON WORD . #GLOBAL 


LOAD MAPS 


DATE 


16FEB87 
16FEB87 


TIME LANGUAGE 


17:56 TAL 
17:56 TAL 


16FEB87 


SOURCE FILE 


$BASE.GRAYTGUN. TXGEN38S 
$BASE.GRAYTGUN. TXGEN385S 


17:56:41 


2) 
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BINDER - OBJECT FILE BINDER - 1T9621COO - (15JUL87) 
Object file name is $BASE.GRAYTGUN.OBJECT 

Object file timestamp is 16FEB87 17:56:41 

Number of Binder errors = 0 

Number of Binder warnings = O 

Primary data = 161 words 

Secondary data = 8556 words 

Code area size = 5S pages 

Resident code size = O pages 

Data area size = 64 pages 


BINDER AND COMPILER STATISTICS 


SYSTEM \FOXII 


Extended data area size = O pages 

Top of stack = 8717 words 

Number of code segments = 1 segment 

The object file will run on a TNS/II, but may not run on a TNS 
Number of compiler errors = QO 

Number of compiler warnings = 33 

Maximum symbol table space used was = 43354 bytes 


Number of source lines = 4129 
Compile cpu time = 00:00:35 
Total Elapsed time = 00:01:50 


G 


16FEB87 


17:56:41 


TAL - T9250C00 - 


Date - Time 


10. 


OOBONOOAW— 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


- 000000 


000000 
000074 
000170 
004170 
004170 
004170 
004170 
604170 
004170 
004170 
004170 
004170 
004170 
004170 
004170 
004210 
004230 
004230 
004230 
004230 
004230 
004230 
004230 
004230 
004230 
004230 


(15JUL87) 


lageokewokokok okokokekokosokokeokesoh ok ok ekeke heehee he kekekeh oneselesenekekosehesekekeke son ekekononeekeke) 


17FEB87 - 22:05:48 


~-—-O0000000000-]]+]+-==-Q00000 00000000 0000000 0000000 0000 00 


?2ERRORS 10, nowarn, 


16Feb87. 2.03. Nhan Chu. 
theoretical vs actual 
PCELLA, CCELLA, TERMS. 


Source language: 
Default options: 
{datapages 32,! 


Inter-arrival 
per auditor’s request. 


TAL - Target machine: 
On (LIST,CODE,MAP,WARN,LMAP) 


nocode, symbols, inspect, 
time distribution plotting of 


New params: ATPLOT, 


Fix bug in plotting the last cell. 


t 

' 

! 

i] 

! 19Jan87. 2.02. Nhan Chu. 

! 15Jan87. 2.01. Nhan Chu. Use 
! 14Jan87. 2.00. Gerhard Huff. 
! 10Dec86. 1.02. Nhan Chu. 

! O5Dec86. 1.01. Nhan Chu 

! 200ct86. 1.00. Nnan Chu 

! 140ct86. 0.00. Nhan Chu. Add Tx 


Clarify ltabels for 
Error handler to window cmd. 
Add POFF 8 to output. 
inter-arrival 


Record deblocking for TXLOG. 
‘version’ 
TXLOG file is unstructured. 


define. 


input params in report 


time in output. 


De a ee a a ee i] 
! TXREP Version ! 


define txrep°vs = ["vs 2.03"]#; ! 


define eh = if <> then call debug 


?7NOLIST,noprintsym,source $system. 


int 
int 
int 


.cfcb [0:fcbsize-1] 
-out [0:fcbsize-1]; 
.out*buffer [0:2047]; 


a RSs 


:= Q; 


struct iodev 

begin 
string name~ 
int 
int 
int 
int 
int 

end; 


[0:23]; 
filename = name; 
filenum; 

type; 

error; 

bufaddr; 


-hometerm (iodev~*); 
.in (iodev**); 


struct 
struct 


1000; 
(*); 


{0:23]; 
name”; 


cellcount = 
rt“table~* 


literal 

struct 

begin 
string name~ 
int Name = 
int(32) count; 


shown in HELP and output report 


#; 


system.gpldefs 


common fcb 
out file 
4096 bytes block size 


input file= tx stats log 


columns 74 


Tandem NonStop II System 
- Off (ICODE,INNERLIST) 


$TURF .NVCTXGEN.TXREP23S [1] 


004230 
004230 
004230 
004230 
004230 
004230 
004230 
004230 
004230 
004230 
004230 
006235 
006235 
006235 
006235 
006235 
010242 
010242 
010242 
010242 
010242 
010242 
010242 
010252 
010252 
010252 
010252 
010252 


010252 


010252 
010252 
010252 
010252 
010252 


010252: 


010252 
010252 
010252 
010270 
010306 
010306 
010306 
010306 
010306 
010306 
010306 
010306 
010306 
010306 
010306 
010306 
010306 
010306 
010370 
010370 
010370 
010370 


eat eteleoketoekekekekekokeakogekefeokekekosel one eekesekesokeololeholesesoelesoetesekekoelekokokeokokonese keke kee eek) 


int (32) 
int (32) 
real 
real 
int(32) 
int(32) 
int 
int 
int 
end; 


minimum; 
maximum: 
sum; 
sum”2; 
lTobound; 
upbound; 
cellsize; 
numcell; 


Program TXREP - ET1 Response Time Report 


freq [O0:cellcount]; 


struct .rt (rt*table**); 


! Inter-Arrival 


Times 


struct .at (rt“table”*); 
struct .at*stats ; 


begin 
real 


avg; 


! DELAY and THINK stats 


struct time*stats~* (*); 
begin 

int(32) count; 

real avg; 

real std; 

int(32) minimum; 

int(32) maximum; 

real sum; 

real sum*2; 
end; 
struct .think (time*stats**); 
struct .dilay (time*stats”*); 


thruput; 
rt*avg; 
rt“std; 
rt “min; 
rt “max; 
rt“dist 
rt“pct 


{0:9]; 
[0:9]; 


ee ae eS er ee eT 


response time stats 


inter-arrival time stats 
sec 
sec 
sec 
sec 


Think time stats (constant,random) 
Delay time stats (constant, random) 


reported etl transaction statistics 


tx/sec 

sec 

sec 

sec 

sec 

resp time distribution in 10% increment 
actual percentile values (%) 


NNNNNNNNNN PD 
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010370 
010370 
010370 
010370 
010370 
010370 
010370 
010370 
010370 
010370 
010370 
010370 
010370 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 
010417 


esekelelateialekekekekokewoes ekoke kek ekokorek eke ee ek eke cece eon ee oko okerekokekesek eer esekenekesesok eek enekodg=) 


itviniim n° R° hen eens elelalekekeiakelele let ekekekekelekekekes ek ekekeR eek ak ek ek ek ek Oeil adie hon 


Lid rrogram 
literal maximum = 0, constant 
struct .test; 
begin 
int terminals; 
int arrival“rate; 
int arrival“type; 
fixed ts°“window’ begin; 
fixed ts“window’end; 
int(32) len* window; 
fixed ts°“first“rec; 
fixed ts“ last“rec; 
int(32) len“test; 

end; 


literal name = 0, 
const” = 1, 
none~ = 2, 
str* = 3, 
param’ default = 0, 
param’ window = 1, 
param*title = 2, 
param*rtplot = 3, 
param” rtdump = 4, 
param*txlog = 5, 
param*pcel] = 6, 
param*ccel] S07, 
param’ atplot = 8, 
param’ pcella = 9, 
param’ ccella = 10 
param’ terms = 11 
max” keyword = 11 
string param” keywords = ‘’P’ 
{6, str » “WINDOW 
5, str~ ~ “TETLE 
6, none~* » “RTPLOT 
6, none~  , “RTDUMP 
5, name”  , "TXLOG 
5, const” , “PCELL 
5, const”™ , "CCELL 
6, none~ , "ATPLOT 
6, const” , "“PCELLA 
6, const~ , "CCELLA 
5, const” , "TERMS 
0}; 
define setup = flags.<0O>#; 
struct startup’ param”* (*); 
begin 
int name [{0:11]j, 
value = name, 
flags; ; 


string s”“name = 


name ; 


we se 


{AKERrP ~ Ell 


1, 
! 


ee ee ee er er ery 


we © © ee © we we ew 


Response |! 


random = 2; 
etl test run parameters 


# 


(tx/sec) * 10 


O=max, 


l=constant, 


ime Keport 


2=random 


timestamp when window begins 
timestamp when window ends 

ts*window*end - ts*“window” begin (sec) 
timestamp of the first record 


timestamp of the 


last 


record 


ts*“last“rec -— ts“first“rec (sec) 


om bam tem mm cm cam com bam vam cm ome 


hh:mm:ss/hh:mm:ss 


24 char max 


response time plot 
response time dump 


TX 
Plot cell 
Cotlect cell 

inter-arrival 
Plot cell 
Collect cell 


size 


size 


input file from TXGEN 
(Def=100ms ) 


size (Def= 50ms) 


time plot 
(Def= 
size (Def= 


1000ms ) 
500ms ) 


Num of terms with merged txlog 


2.03 
2.03 
2.03 
2.03 


2.03 
2.03 
2.03 
2.03 


I/Fepbos 


22°5U90 5:45 


PAGE 4 STURF .NVCTXGEN.TXREP23S [1] Program TXREP - ETi Response Time Report 1 7FEBB7 22:05:48 
170. 010417 0 1 end; 
71. 010417 06 O struct -Startup*parameter (startup”param**) [O:max“keyword]; 
172. 010653 0 O 
173. 010653 0 O ae aaa a a aaa ! 2.02 
174. 010653 0 O ! TXLOG Rec Definition ! 2.02 
175. 010653 0 O | ee nr rte een ! 2.02 
176. 010653 0 O ?2SOURCE TXTAL 2.02 
Source file: [3] $TURF.NVCTXGEN.TXTAL 12JAN87 - 09:43:18 
1. 010653 0 O ! SCHEMA PRODUCED DATE - TIME : 1/12/87 09:43:13 


2. 010653 0 O ?SECTION TX 


FPAUC 3 


DVIUREF .NVULIAGEN.IALAL LS] Program !IAKERP ~ Ell KeEsponse time Keport if/Feoosr 
010653 0 O ! Record TX created on 01/12/87 at 09:43 

010653 0 0 | a a a ester eaneer= 
010653 0 O ! The following record is written by the program TXGEN for each 
010653 0 0O ! ET1 transaction sent and received to/from the SUT system. 
010653 0 O ! The program TXREP scans these records to produce performance 
010653 0 O ! statistics about the ET1 benchmark. 

010653 0 O ! 

010653 0 O ! 25Sep86. Nhan Chu. 

010653 0 O Ym ee rn rt 
010653 0 O ! 18Nov86. Make UNSIGNED binary 8. 

010653 0 QO ! 12Jan87. Gerhard Huff: term-count, term-index binary 16, added filler 
010653 0 O STRUCT TX*DEF (*); 

010653 0 O BEGIN 

010653 0 1 ! number of terminalis ( <= 250 ) 
010653 0 1 INT TERM” COUNT; 

010653 0 1 ! terminal id 

010653 0 1 INT TERM” INDEX; 

010653 0 1 ! user-specified tx rate (tps * 10) 
010653 0 1 ! =O max rate, pos=constant, neg=random 
010653 O 1 INT ARRIVAL“RATE; 

010653 0 #1 ! 4-word timestamp of input time 
010653 O 1 FIXED SEND* TIMESTAMP; 

010653 0 #1 ! interval (ms) until the next arrival 
010653 O 1 INT (32) NEXT“ARRIVAL“TIME; 

010653 0 1 ! tx response time in milliseconds 
010653 0 1 INT(32) RESPONSE“TIME; 

010653 0 1 ! filler to bring record up to 32 
010653 0 1 FILLER 10; 

010653 0 1 END; 

010653 0 O 

010653 0 O fSape SSS e cher ar SSS SsSe5 ! 

010653 0 O ! Other global variables ! 

010653 0 O [Sa S> oS ss = SSS se5-- ! 

010653 0 O 

010653 0 O aefine guardian*“devtype = <4:9>#4, 

010653 0 O guardian°devsubtype = <10:15>4; 

010653 0 O 

010653 0 O !' Guardian device types 

010653 0 O 

010653 0 O literal guardian” typeprocess = 0, 

010653 0 O guardian” typereceive = 2, 

010653 0 O guardian “typedisc = 3, 

010653 0 O guardian“ typetape = 4, 

010653 0 O guardian’ typeprinter = 5, 

010653 0 O guardian” typeterm = 6, 

010653 0 0O guardian” typecard = 8, 

010653 0 O guardian’typex25ptp = 9, 

010653 0 O guardian’ typettmp = 21; 

010653 0 O 

010653 0 O ! Open flags definitions 

010653 0 O 

010653 0 O literal open” nowait = ¥BO000000000000001, 

010653 0 O open’ shared = *Bo0oQ0000000000000, 

010653 0 O open“exclusive = %B0000000000010000, 

010653 0 O open’ protected = %*B0000000000110000, 

010653 0 O open” readwrite = *BOooooooo0000000NN, 

010653 0 O open” readonly = %*B0000010000000000, 


2£2:;U9 2.40 


$TURF .NVCTXGEN.TXREP23S8 [1] 


010653 
010653 
010653 
010653 
010653 
010653 
010653 
010653 
010653 
010653 
010653 
010653 
010653 
010653 
010653 
010653 
010653 
010653 
010653 
014653 
014653 
014653 
014653 
014653 
014653 
000000 


oooocooooooco0ococoooceoeoo0o0oo0 0000 


oooocooocooooco0c0c°ocoec0o0odc°ec0o00o00o00 


literal 


literal 


string 
int (32) 


literal 
int 


Program TXREP -— ETi Response Time Report 


open’writeonly = %B0000100000000000, 
open” getmsg = %*B0100000000000000; 
open’attempt = 0, 

read°-attempt = Vs 

write“attempt =". 2% 

weattempt = 3, 

control“attempt = 4, 

awaitio”“done = 5; 

true = -l, 

false = 0, 

nil = 0; !should be -1 ? 

-P3 ! str utility pointer 
throw” count; ' records outside of window 


txlog*bufsize = 4096; 


.txlog*buf [0:(txlog*bufsize/2)-1], 
.txlog*bufptr, 


txlog*maxrec := 0, ' max recs in block 
txlog*rec := 0, 
first*“block*read := true; 


?NOLIST,columns 80,source $system.system.extdecs ( 


?NOMAP 


NNN NN NY 
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000000 
000000 
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000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
00c000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


oo-o0o0o0co oe K-O00000]0]0000 H0- 220742242000 


ooo0o0oo0oo0ocodoodoo°dc°ooce0ceoce0dcoocooooco°ocooc°oo0e0e000e0o0000 


proc 


int 


Forward declarations 


17FEB87 22:05:48 


----- ERROR REPORTING & NUMBER CONVERSION --------------------- 


fprint (outfnum,fmt,p1, p2, p3, p4, p5, p6, p7, p8, pS, pi10, 
p11, p12, p13, p14) VARIABLE; 


outfnum; 


string .fmt; 


int 


p1,p2,p3,p4,p5,p6,p7,p8,p9,pl10, 


p11,p12,p13,p14; 


int proc dascii (dv,base,stg); 


real 


int (32) dv; 
int base; 
string .stg; 
proc sqrt (r); 
real .r; 


tcutput file number 
!format string 
'parameters 


forward; 


value to convert 
-10 if right justified 
target string 

forward; 


forward; 


iodev-failure (f, name, operation) variable; 


int f, .mame, operation; 


forward; 


jodev- init (dev,flags, sync, type) variable; 


int .dev (iodev~*), flags, sync, 


type; 


forward; 


----- OTHERS -------------------------------------------------- 


txrep init; 

calc“window’ ts; 

read“rec (rec, error); 

struct .rec (tx*def); int .error; 
scan’ file; 

eti“stats; 

report; 

print“help; 

print*“times (ts*start, ts*stop); 
fixed ts“start, ts“stop; 


txrep main; 


forward; 
forward; 


forward; 2.02 
forward; 
forward; 
forward; 
forward; 


forward; 


forward; 
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283. 


288. 
289. 
290. 
291. 


293. 
294. 
295. 
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000000 
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000000 
000000 
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000000 
000000 
000000 
000000 
000000 
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000000 
000000 
000000 
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000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000004 
000004 
000004 
000007 
000010 
000010 
000017 
000020 
000020 
000023 
000026 
000026 
000030 
000030 
000030 
000030 
000041 


NNNNNNNNNNNNNNNN HHH wy HawAHnHaewH~yHoaoanradaonoornrocodcoco0co0co0oo0°cdec0cdcoc0c0c0c0ece0c0co0qo0o0cdeo 


forint PROCEDURE 


|! FERAL AEHKERAREKHEHRERESHREAABEEAAREHREARHEEAEEEABEEEH EAA EEA EH AH 


'# # 
'# FORMATPRINT # 
!# # 
'# FORMAT STRINGS ARE CONTAINED WITHIN A READ/ONLY STRING ARRAY. # 
'¢ EACH LINE OF THE FORMAT IS ENDED WITH A NULL (9) BYTE, AND # 
'¢ THE END OF THE STRING ARRAY IS MARKED BY AN (%377) BYTE. #¥ 
'# # 
'4# FIELD INDICATORS ARE: # 
!# # - signed decimal # 
#8 & - unsigned decimal # 
'# *% - octal # 
'g ‘= string (blank-fill to field length) # 
i# \ - string (no blank fill) # 
'# ? - escape character # 
lg # 
!'% FOR NUMERIC FIELDS, AN INTEGER VALUE SHOULD BE PASSED. # 
'¢ FOR STRING FIELDS, THE ADDRESS OF THE STRING ARRAY SHOULD BE # 
'# PASSED. # 
'# # 
lF#EPRHHRHHEREPESAERAHERAKERHALHEASAERARBARHHARBHAEERA RARER REESE 


PROC fprint (outfnum,fmt,p1, p2, p3, p4, p5, p&, p7, pB, p9, pid, 
p11, p12, p13, pl4) VARIABLE; 


INT outfnum; output file number 
STRING .fmt; ‘format string 
INT p1,p2,p3,p4,p5,p6,p7,p8,p9,pi0, ‘parameters 
p11,p12,p13,p14; 
BEGIN 
STRING buffer[0:132], !print buffer 
-bufptr, current position in buffer 
-P; 'working ptr 
INT -parm := @pl, 'current parameter 
save, ‘saved address | 
i; tindexing variable 
DO 
BEGIN 
STACK @fmt,0; CODE (SBU %660); 'SCAN fmt UNTIL O -> @p; 
STORE @p; 
STACK @buffer, @fmt, @p’—‘’@fmt+2; !buffer’:=’fmt FOR @p’-’@fmt+2 


CODE (MOVB %67); 


@fmt := @p[{1]; 
@bufptr := @buffer; 


WHILE bufptr DO 'check for format characters! 


IF bufptr = "#" OR ! signed decimal integer! 
bufptr = "&" OR 'unsigned decimal integer! 
bufptr = “%" THEN funsigned octal integer! 

BEGIN 


17FEBB7 
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rAuc y 


DIURF.NVULAGEN. [LAREPZSS L1] 


000041 1 3 SCAN bufptr WHILE bufptr -> @p; 

000045 1 3 IF bufptr = "#" AND parm < O THEN 

000053 1 3 BEGIN 

000053 1 4 bufptr = Na"; 

000055 1 4 parm := -parm; 

000060 1 4 @bufptr := @bufptr[1]; 

000063 1 4 END; 

000063 1 3 CALL NUMOUT (bufptr, parm, 

000063 1 3 IF bufptr="%" THEN 8 ELSE 10,@p’-‘@bufptr); 
000100 1 3 @bufptr := @p; 

000102 1 3 @parm := @parm[1]; 

000105 1 3 END 

000105 1 2 ELSE IF bufptr = "’" THEN !character string (blank fill)! 
000111 1 2 BEGIN 

000111 1 3 @p := parm; 

000113 1 3 WHILE bufptr = "’" DO 

000116 1 3 BEGIN 

000116 1 4 IF p THEN 

000120 1 4 BEGIN 

000120 1 5 bufptr := p; 

000122 1 5 @p := @p[1]; 

000125 1 5 END 

000125 1 4 ELSE bufptr := " "; 

000130 1 4 @bufptr := @bufptr[1]; 

000133 1 4 END; 

000134 1 3 @parm := @parm[1]; 

000137 1 3 END 

000137 1 2 ELSE IF bufptr = "\" THEN ‘character string (no blank fill)! 
000143 1 2 BEGIN 

000143 1 3 @p := parm; 

000145 1 3 i 3:= -1; 

000147 1 3 WHILE bufptr{i:=i+1] = "\" AND p[i] DO 

000161 1 3 bufptr{i] := pli]; 

000165 1 3 @bufptr := @bufptr[i]; 

000170 1 3 IF bufptr = "\" THEN 

000173 1 3 BEGIN 

000173 1 4 SCAN bufptr WHILE "\" -> @p; 

000177 1 4 bufptr ‘:='’ p FOR @buffer[132]’-‘@p; 
000211 1 4 END; 

000211 1 3 @parm := @parm[1]; 

000214 1 3 END 

000214 1 2 ELSE 'no replacement field! 
000216 1 2 BEGIN 

000216 1 3 IF bufptr = “?" THEN f'escape character! 
000221 1 3 bufptr ’:=’ bufptr[{1] FOR @buffer[132]-@bufptr; 
000234 1 3 @bufptr := @bufptr[1]; 

000237 1 3 END; 

000240 1 2 

000240 1 2 CALL WRITE (outfnum,buffer,@bufptr’-‘@buffer); 

000253 1 2 

000253 1 2 END 

000253 1 1 UNTIL bufptr[1] = %377; 

000257 1 1 

000257 1 #1 END; !proc fprint! 


fprint PROCEDURE 
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000000 
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000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
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000006 
000025 
000031 
000031 
000033 
000037 
000037 
000037 
000043 
000043 
000047 
000047 
000050 
600054 
000054 
000060 
000064 
000066 
000067 
000071 
000071 
000074 
000076 
000076 
000076 
000105 
000107 
000107 
000120 
060132 
000134 
000000 


eke ee eee at et tt st et = 


int proc DASCII 


INT PROC DASCII(DV,BASE,STG); ! PER GUARDIAN FUP 


1 
! Usage: -10 => right justified, 10 => left justified 
t 
! 4567890b [44:51] 7 userid 
' err := dascii( $DBL( owner.<0:7> ), -10, line” [46] ); 
! line*[47] := ","; 
! err := dascii( $DBL( owner.<8:15> ), 10, line” [48] ); 
! 
INT(32) DV; ' VALUE TO CONVERT 
INT BASE; ' -10 IF RIGHT JUSTIFIED 
STRING . STG; ! TARGET STRING 
BEGIN 
INT (32) DVT; 
INT RT:=0, 
SGN:=0, 
K:=11, 
N, 
REM, 
DVL=DVT, 
DVR=DVT+1; 
STRING B[O:11]:=[11*[" "],"O"]; 
IF BASE<O THEN RT := 1; ! RIGHT JUSTIFY 
IF DV<OD THEN 
BEGIN ! NEGATIVE 
SGN := 1; 
DV := SABS(DV); 
END; 


WHILE DV<>0D DO 
BEGIN 
STACK 0; STACK $HIGH(DV); STACK 10; CODE(LDIV); 
RO=REMAINDER, R1=QUOTIENT (NEW SHIGH(DV) ) 
STORE DVL; 
STACK $INT(DV); STACK 10; CODE(LDIV); 
RO=DV MOD 10 (NEXT DIGIT), Ri=NEW $LOW(DV) 
STORE DVR; STORE REM; DV := DVT; 
B[K] := REM+"0"; 
K := K-1; 
END; 
IF SGN THEN 
BEGIN ! INSERT SIGN 
BLK] := was 
K := K-1; 
END; 


IF NOT (N:=11-K) THEN N := 1; 
IF RT THEN 
STG ‘=:’ B[11] FOR N 


STG ‘:=’ B[12-N] FOR N; 
RETURN N; 


END !DASCII! ; 


2NOLIST 
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)] 
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512. o00000 0 O Proc iodev~failure (f, name, operation) variable; 

513. ooo000 1 O bcs SSS Sees SSeS SSeS SSH sea SH SS 28-8 SS 

514. 000000 1 O int f, .nmame, operation; 

515. 000000 1 O begin 

516. 000000 1 1 int error, convert := true, 1, f*name [0:11]; 

517. 000000 1 1 string s“name [0:34], 

518. 000000 1 #1 s“oper [0:30], 

519. 000000 1 1 io“failure = ‘P’ ;:= 

520. 000000 1 1 {(20*["\"], “ with error ?#### on file ", 34#["\"], 

521. 000050 1 1 ", file no: ?###", 0, %377]; 

522. 000061 1 #1 begin 

523. 000065 1 2 call fileinfo (f, error, fname); 

524. 000114 1 2 if f = -1 then 

525. 000117 1 2 begin 

526. 000117 1 3 s”“name ‘:=’ "No file name" & 0; 

527. 000137 1 3 convert := false; 

528. 000141 1 3 end; 

529. 000141 1 2 if $param (name) then 

530. 000144 1 2 begin 

531. 000144 1 3 f*name ’:=’ name for 12; 

532. 000150 1 3 convert := true; 

533. 000152 1 3 end; 

534. 000152 1 2 if convert then s*“name [fnamecollapse (f*“name, s“name)] := 0; 

535. 000164 1 2 case operation of 

536. 000166 1 2 begin 

537. 000166 1 3 s“oper ‘:=’ ["OPEN failed", 0]; 

538. 000200 1 CEI s“oper ‘:=’ ["“READ failed", 0); 

539. 000212 1 CE2 s“oper ‘:=’ ["WRITE failed", OQ]; 

540. 000224 1 CE3 s“oper ‘:=’ ["CONTROL failed", 0]; 

541. 000236 1 CE4 s*“oper ‘:=’ ["AWAITIO completion ", 0]; 

542. 000250 1 CES end; !case 

543. 000256 1 2 call fprint (hometerm.filenum,io* failure, @s*“oper, error, 

544. 000256 1 2 @s“name, f); 

545. 000304 1 2 end; 

546. 000304 1 1 end; 
CONVERT Variable INT Direct L+002 
ERROR Variable INT Direct L+001 
F Variable INT Direct L-006 
F “NAME Variable INT Direct L+004 
IO* FAILURE Variable STRING Direct P+000 
L Variable INT Direct L+003 
NAME Variable INT Indirect L-005 
OPERATION Variable INT Direct L-004 
S*NAME Variable STRING Direct L+020 
S*OPER Variable STRING Direct L+042 


571. 
572. 


DEV 

FLAGS 

I 

SYNC 

S “NAME 
TYPE 
WRONG” TYPE 
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000000 
000000 
000051 
000051 
000051 
000052 
000065 
000066 
000075 
000133 
000133 
000151 
000151 
000161 
000206 
000214 
000217 
000222 
000222 
000222 


eee tet tet et st OO 


“NWAWWWWNHNNNNNDND — = = = OOOO 


proc IODEV“INIT 


int .dev (iodev”*), flags, sync, type; 
begin 
string s*name [0:34], 
wrong type = ‘P’ ;:= 
{“Device type for file “, 34*["\"], " is ?###, should be ?7###", 
int i; 


begin 
call open (dev.filename, dev.filenum, flags, sync); 
if <> then 


0,%377]; 


call iodev*failure (dev.filenum, dev.filename, open°attempt); 


call fileinfo (dev.filenum, dev.error,,, dev.type); 
if (not dev.error) and $param (type) and 


(i := dev.type.guardian*“devtype) <> type then 
begin 
s“name [fnamecollapse (dev.filename, s*name)] := 0; 


call fprint (hometerm.filenum,wrong“type, @s*name, i, 
call close (dev.filenum); 


dev.filenum := -1; 

dev.error := 16; 
end; 

end; ! of proc body 
end; ! of proc iodev“ init 

Variable,40 STRUCT-I Indirect L-007 
Variable INT Direct L-006 
Variable INT Direct L+023 
Variable INT Direct L-005 
Variable STRING Direct L+001 
Variable INT Direct L-004 


Variable STRING Direct P+000 


type); 


i7FEBS7 
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574. 


576. 
577. 
578. 


BUF 
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000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000027 
000027 
000066 
000066 
000103 
000103 
000103 
000103 
000103 
000103 
000103 
060110 
000117 
000117 


000120 
000120 
000120 
000120 
000120 
000120 
000120 
000120 
000120 
000121 
000140 
000145 
000145 
000151 
000154 
000156 
000156 


NNNNNNNNNNNNNNDND — — 


NN NN D = a ee et we a as a es os a SS SB BB NNNNND | $$ OF OC 


AWWAWWWWNNNNN — = 


proc TXREP*INIT 


proc TXREP“INIT; 


begin 
struct startup’msg** (*); 
begin 
int id, 
default [0:7], 
in [0:11], 
out [0:11]; 
string parm [0:527]; 
end; 
struct .st°msg (startup’msg”~); 
struct -receive (iodev~~*); 
int -receive buffer [0:127]; 
int (32) tag; 
int fnum, 
error, 
-buffer; 
int filecode; !of in file! 
string r°error = ‘P’ := 
["“Unable to read startup message, error ?####", 0, %377], 
ignore = ‘’P’ := 
["Parameter ignored: ", 40* ["\"], 0, %377], 
badinfile = ‘P’ := 
{"Wrong type of TXLOG file", 0, %377]; 
subproc upshift (buf, 1); 
Pa ct eee es ee ee ee ee ee ee ee 
string .buf; int 1; 
begin 
use x; 
for x := 0 to 1-1 do 
if $alpha (buf [x]) then buf[x] := buf[x] land %337; 
drop x; 
end; 
Variable STRING Indirect S$-002 
Variable INT Direct S-001 
subproc scan“startup; 
| eed 
begin 
string .comma, .last, .first, .next, .save, save”char; 
int i, status, found, command” length, input*length, index, 
-p (startup*param”~); 
begin 
for i:= 0 to max*keyword do startup”parameter [i].flags := 0; 


startup parameter [param*default].name’:=‘st°msg.default for 8; 


@next := @st*msg.parm; 

if not next then call print“help; 
while next do 

begin 

scan next until “," -> @comma; 


then exit 
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000162 
000166 
000172 
000174 
000203 
000207 
000207 
000213 
000215 
000217 
000217 
000227 
000227 
000227 
000245 
000245 
000247 
000253 
000260 
000272 
000304 
000304 
000313 
000313 
000313 
000313 
000317 
000330 
000333 
000335 
000335 
000335 
000352 
000353 
000353 
000353 
000353 
000353 
000371 
000372 
000372 
000372 
000401 
000403 
000403 
000403 
000412 
000414 
000414 
000414 
000432 
000433 
000435 
000452 
000460 
000460 
000462 


NNNNNNNNNNNONNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNDND PD LP 


AAMIOOnrMNDOAODOMOADNMADONMBDDODOOANMODMDMODAADMMDAMNANOAOOOAMDOMNOOUUVSMDAAHADADADAAHAASAHL 


proc TXREP“INIT 


scan next while " " -> @first; 

scan first until! “ " -> @last; 

@save := @first; 

@last := $min (@last, @comma); 

input*length := @last - @first; 

call upshift (first, input*length); 

i:= 0; 

found := false; 

while not found and (command*length := param “keywords[i]) do 
begin 


if first = param*keywords [i+2] for input* length and 


input*length = command*length then 


begin 
found := true; 
scan last while " “" -> @first; 
rscan comma [-1] while “ " -> @last; 
input*length := $max (0, @last - @first + 1); 
@p := @startup°parameter [i/11 + 1]; 
case param*keywords [i+1] of 
begin 
! 0 name* ! 
begin ! a device name must be supplied 
call upshift (first, input*length); 
if first = “#MYTERM" !for 7! then 
call myterm (p.name) 
else 
if input*length <> 
fnameexpand (first, p.name, st°“msg.default) 
then found := false; 
end; 


! 1 const” ! 


begin ! a numeric parameter must be supplied 
if numin (first, p.value, 10, status) 


<> @last + 1 or status 


then found := false; 
end; 
!' 2 wnone~ ! 
begin ! no parameter 
if first and first <> "," then found 
end; 
{ 3 stré ! 
begin ! string of 24 char max 
p.name ’:=’ 12*[{" "]; 


if input*length then 
p.s name ‘:=’ first for 
$min(input* length, 
else found := false; 
end; 
otherwise found := false; 
end; !case 
if found then p.setup := true; 
end; ! 
i1os3= i + 11; 
end; tof while not found 


:= false; 


24) 
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684. 000463 2 4 if not found then 

685. 000465 2 4 begin 

686. 000465 2 5 save”“char := comma; 

687. 000467 2 5 comma := 0; 

688. 000471 2 5 call fprint (hometerm.filenum, ignore, @save); 

689. 000520 2 5 comma := save“char; 

690. 000522 2 5 end; 

691. 000522 2 4 @next := if comma then @comma + 1 else @comma; 

692. 000531 2 4 end; !while next do 

693. 000532 2 3 end; !of setup body 

694. 000532 2 2 end; ! of subproc scan’startup; 
COMMA Variable STRING Indirect S-014 
COMMAND ~*~ LENGTH Variable INT Direct : $-003 
FIRST Variable STRING Indirect $-012 
FOUND Variable INT Direct $-004 
I Variable INT Direct S-006 
INDEX Variable INT Direct $-001 
INPUT~ LENGTH Variable INT Direct $-002 
LAST Variable STRING Indirect S-013 
NEXT Variable STRING Indirect $-011 
P Variable,32 STRUCT-I Indirect $-000 
SAVE Variable STRING Indirect $-010 
SAVE~* CHAR Variable STRING Direct $-007 
STATUS Variable INT Direct S-005 

695. 000556 1 1 

696. 000556 1 1 (ees SS PSS SS= SSS SS 72S 2S = ! 

697. 000556 1 1 ! Body of TXREP“INIT ! 

698. 000556 1 1 fee SSS SS SSeS SSS ! 

699. 000556 1 1 begin 

700. 000574 1 2 call myterm (hometerm.filename) ; 

701. 000577 1 2 call open (hometerm.filename, hometerm.filenum); eh; 

702. 000613 1 2 

703. 000613 1 2 receive.filename ‘:=‘' "$receive ae 

704. 000622 1 2 call open (receive.filename, receive.filenum); 

705. 000634 1 2 call read (receive.filenum, st*msg, $len (startup*msg”~)); 

706. 000645 1 2 if <> then 

707. 000646 1 2 begin 

708. 000646 1 3 call fileinfo (receive.filenum, error); 

709. 000676 1 3 if error or st”msg.id <> -1 then 

710. 000703 1 3 call fprint (hometerm.filenum, c”error, error); 

711. 000727 1 3 call abend; 

712. 000734 1 3 end; 

713. 000734 1 2 call close (receive.filenum); 

714, 000742 1 2 

715. 000742 1 2 call scan“startup; 

716. 000743 1 2 

717. 000743 1 2 ! open the OUT file using SIO 

718. 000743 1 2 call set“file (out, init*“filefcb); 

719. 000752 1 2 call set*file (out, assign*filename, @st*msg.out); 

720. 000771 1 2 call set*file (out, assign” openaccess, write°“access); 

721. 001001 1 2 call set“file (out, assign”primaryextentsize, 4); 

722. 001011 1 2 call set*“file (out, assign”“secondaryextentsize, 4); 

723. 001021 1 2 call open*file (cfcb, out, out*“buffer, 4096); 

724, 001036 1 2 eae ae ee nae trie ieee ag are ote hes Late 
725. 001036 1 2 in.filename ’:=’ startup”parameter [param”“txlog].name for 12; 


2 / 


PAGE 16 
726. 001043 
727. 001074 
728. 001100 
729. 601100 
730. 001122 
731. 001127 
732. 001127 
733. 001127 
734. 001127 
735. 001150 
736. 001151 
737. 001151 
738. 001160 
739. 001165 
740. 001165 
741. 001165 
742. 001165 

BADINFILE 

BUFFER 

ERROR 

FILECODE 

FNUM 

IGNORE 

RECEIVE 


RECEIVE BUFFER 
R“ERROR 
SCAN STARTUP 
STARTUP” MSG*~* 
1 ID 
1 DEFAULT[0O:7] 
1 IN(O:11] 
1 OUT[O:11] 
1 PARM[0:527] 
ST“MSG 
TAG 
UPSHIFT 


or ee ee 


“NN WWAWNNNNNAWANNN 


end; 
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proc TXREP“INIT 


call fileinfo (,,in.filename,,,,,,,filecode); 
if filecode <> 6211 then 


begin 


call fprint (hometerm.filenum, badinfile); 


call abend; 


end; 


! open the IN file using SBB 


call open (in. filename, in.filenum, open*exclusive,,,,, 4096); 


call open (in. filename, in.filenum, open*exclusive); 


if <> then 
begin 


call iodev*“failure (in.filenum, 
call abend; 


end; 


end; 


Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable,40 
Variable 
Variable 
Subproc 
Variable 


Variable,1122 
Variable 
Subproc 


!'proc txrep“init! 


STRING Direct P+000 

INT Indirect L+010 

INT Direct L+0O07 

INT Direct L+011 

INT Direct L+006 

STRING Direct P+000 

STRUCT Indirect L+002 

INT Indirect L+003 

STRING Direct P+000 
%000120 

TEMPLATE ,1122 

INT Direct 

INT Direct 

INT Direct 

INT Direct 

STRING Direct 

STRUCT Indirect L+001 

INT (32) Direct L+004 
%000103 


in.filename, open“attempt); 


01 
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000000 
000000 
000000 
000000 
000016 
000030 
000052 
000067 
000067 
000067 
000067 
000067 
000067 
000067 
000067 
000067 
000067 
000067 
000067 
000067 
000067 
000067 
000067 
000067 
000067 
000076 
000102 
000102 
000105 
000145 
000150 
000210 
000213 
000253 
000256 
000322 
000325 
000366 
000371 
000432 
000432 
000432 
000446 
000454 
000457 
000462 
000465 
000527 
000547 
000547 
000547 
000547 
000551 
000554 
000557 
000621 
000635 


cme week ke ehh emt mnt tt 


NNNNNNNNNNNNNNNNNNNNNNNNNNNNND — = 2 es ee ee ete ee stews we wee HH HW OOO 


proc CALC” WINDOW*TS 


proc calc”“windowts; 


less than", 


string badwindow = ‘p’ := ["Window end time is 

“ window begin time" ,0,%377], 
badsyntax = ‘p’ := [{"“Illegal Window value, correct format", 

“ dis ‘hh:mm:ss/hh:mm:ss’",0,%377];3 

int -p (startup param**); 

string .s; 

tnt error; 

int h1,h2,m1,m2,8s1,s2; 

define eh = if error then call debug#; 

fixed ts, lIct; 

int(32) jday; 

int .date“time [0:7]; 

literal lct*to*gmt = 2; 


define check“error = 
if error <> 0 then 
begin 
call fprint (hometerm.filenum, badsyntax); 
call abend; 


end;#4; 
@p := @startup”parameter [param window]; 
if p.setup then 
begin 
@s := @p.s "name; 
call numin (s, h1, 10, error); check*error; 


@s := @s ‘+’ 3; 
call numin (s, m1, 10, error); check*error; 
@s := @s ’+’ 3; 
call numin (s, $1, 10, error); checkerror; 
@s := @s ‘t+’ 3; 
call numin (s, h2, 10, error); check”error; 
@s := @s ‘+’ 3; 
call numin (s, m2, 10, error); check*error; 
@s := @s ‘t+’ 3; 
call numin (s, s2, 10, error); checkerror; 


! assume that the first record has been read from tx file 


lct := converttimestamp (test.ts“first“rec); 

jday := interprettimestamp (lct, date”~time); 

date“time [3] := h1; 

date“time [4] := m1; 

date“time [5] := s1; 

lct := computetimestamp (date”“time, error); check”error; 
test.ts*window*begin := converttimestamp (Ict, Ict*to*gmt); 


! assume that midnight is NOT in the window given, otherwise 
!' one needs to account for it by advancing the day. 


date“time [3] := h2; 
date“time [4] := m2; 
date”“time [5] := s2; 


lct := computetimestamp (date“time, error); check“error; 


test.ts“window”end := converttimestamp (lct, 


test.len*window := $dbl((test.ts*window*end - test.ts*window~begin) 


lct“to*gmt); 


1.01 


1.01 
1.01 
1.01 
1.01 
1.01 
1.01 
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801. 000635 1 2 / 1000000F); ! seconds 

802. 000653 1 2 if test.len° window < Od then 

803. 000660 1 2 begin 

B04. ooo0660 1 3 call fprint (hometerm.filenum, badwindow) ; 

805. 000703 1 3 call abend; 

806. 000710 1 3 end; 

807. 000710 1 2 

808. 000710 1 2 end else ! defaulting to all records in tx log file ! 

809. 000711 1 1 begin 

810. 000711 1 2 

811. 000711 1 2 test.ts*“window*begin := test.ts“first“rec; 

812. 000717 1 2 test.ts“window’end = juliantimestamp; !now 

813. 000730 1 2 

814. 000730 1 2 end; 

815. 000730 1 1 end; '!proc calc“window’ts! 
BADSYNTAX Variable STRING Direct P+000 
BADWINDOW Variable STRING Direct P+000 
CHECK~ ERROR Define IF ERROR <> O THEN BEGIN CALL FPRINT (HOMETERM.FILENUM, BADS 
DATE* TIME Variable INT Indirect L+024 
EH Define IF ERROR THEN CALL DEBUG 
ERROR Variable INT Direct L+003 
H1 Variable INT Direct L+004 
H2 Variable INT Direct L+005 
JDAY Variable INT (32) Direct L+022 
LCT Variable FIXED (0) Direct L+016 
LCT*TO* GMT Literal INT %000002 
M1 Variable INT Direct L+006 
M2 Variable INT Direct L+007 
Pp Variable,32 STRUCT-I Indirect L+001 
S Variable STRING Indirect L+002 
$1 Variable INT Direct L+010 
$2 Variable INT Direct L+011 
TS Variable FIXED (0) Direct L+012 


4! 
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817. 
818. 
819. 
B20. 
821. 
822. 
823. 
824. 
825. 
826. 
827. 
828. 
829. 
830. 
831. 
832. 
833. 
834. 
835. 
836. 
837. 
838. 
839. 
840. 
841. 
842. 
B43. 
B44. 
845. 
846. 
847. 
848. 
849. 
850. 
851. 
852. 
853. 
854. 
855. 
856. 
857. 
858. 


COUNT “READ 
ERROR 
READ~ BLOCK 
REC 


$TURF .NVCTXGEN.TXREP23S [1] proc READ“REC 


o0a0000 Oo O proc read*rec (rec, error); 

000000 1 0 SSS Se SSS aa Se SSS 

000000 1 O struct .rec (tx*def); 

000000 1 O int .error; 

000000 1 O begin 

oooo00 1 #1 int count*read; 

000000 1 #1 

000000 1 #1 subproc read“block; 

000000 2 1 [Spe ssSeSssSsSsS2s> 

000000 2 #1 begin 

000000 2 2 call read (in.filenum, txlog*buf, txlog”bufsize, count“read); 

000011 2 2 if < then 

000012 2 2 begin 

000012 2 3 call iodev*“failure (in.filenum, in. filename, read“attempt); 

000021 2 3 call abend; 

000026 2 3 end else if > then ' EOF 

000030 2 2 if first*block*“read then ! when reading 1st block is fatal 

000032 2 2 begin 

000032 2 3 call iodev’failure (in.filenum, in.filename, read“attempt); 

0600041 2 3 call abend; 

000046 2 3 end else ! not the first block 

000047 2 2 begin ! returns EOF error code to caller 

000047 2 3 error := 1; 

000051 2 3 return; 

000052 2 3 end; 

000052 2 2 ! block just read in is OK, reset everything. 

000052 2 2 first“block*“read := false; 

000054 2 2 txlog°rec := 1; 

000056 2 2 @txlog*bufptr := @txlog*buf; 

ooo0060 2 2 txlog*maxrec := count”read / $len (tx*def); 

000064 2 2 end; !subproc read“block! 

o0o0065 1 1 

ooood65s 1 1 

000065 1 #1 txlog°rec := txlog’rec + 1; 

000070 1 1 if txlog*rec > txlog*maxrec then 

000074 1 #1 call read*“block; 

000075 1 1 if error then return; ! EOF encountered ! 

000100 1 1 rec ‘’:=’ txlog*°bufptr for $len (tx*def)/2; 

000104 1 #1 @txiog*bufptr := @txlog*bufptr ‘+’ $len (tx*def)/2; 

000107 1 1 error := 0; 

000111 1 J 

000111 1 #1 end; !proc read*rec! 
Variable INT Direct L+001 
Variable INT Indirect L-O003 
Subproc %000000 
Variable,40 STRUCT-~I Indirect L-004 


2.02 
2.02 
2.02 
2.02 
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000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000015 
000021 
000025 
000030 
000043 
000046 
000051 
000073 
000073 
000073 
000073 
000073 
000102 
000106 
000112 
000115 
000130 
000133 
000136 
000160 
000160 
000160 
000160 
000160 
000164 
000164 
000164 
000164 
000164 
000164 
000164 
000164 
000164 
000164 
000164 
000166 
000174 
000176 


tie A I ae In eS ee ee ee ee ee ee ee ee ee ee ee ee ae] 


ce cn a ee ee ee ee ee ee om Oe a a] 


proc SCAN’FILE 


proc scan’ file; 


?source TXTAL 

Struct .txrec (tx*def); ! tx stats record 
int i, error := Q; 

int(32) delta; 

real delta*r; 

real resp’ time; 

int -P (startup*param~); 

int(32) atime; ! inter-arrival time ! 

real atime“r; 


rt ‘’:=’ ($len (rt)/2) * [0); 

rt.minimum := 99999999d; 

rt.maximum := -99999999d; 

@p := @startup”parameter [param*ccell]; 

rt.cellsize := if p.setup then $abs (p.value) else 50; ! milliseconds 
rt.numcell := cellcount; ! 1000 

rt.lobound := Od; 

rt.upbound := rt.lobound + $db!I (rt.numcell) * $dbl (rt.cellsize); 


at ‘:=’ ($len (at)/2) * [0]; 

at.minimum := 99999999d; 

at.maximum := -99999999d; 

@p := @startup” parameter [param*ccella]; 

at.cellsize := if p.setup then $abs (p.value) else 500;! milliseconds 
at.numcell := cellcount; ! 1000 

at.lobound := Od; 

at.upbound := at.lobound + $db1 (at-numcell) * $db1 (at.cellsize); 


f Read First Record ! 


call read“rec (txrec, error); 

call read (in. filenum, txrec, $len (tx*def)); 

if <> then 

begin 
call iodev”failure (in.filenum, in. filename, read*“attempt); 
call abend; 


end; 

| -------------------- 

: Global Info : 

f-~----—------. i] 

test.terminals := txrec.term*count; 
test.arrival”rate := $abs( txrec.arrival“rate ); 


if test.arrival”“rate then ! pos=constant, neg=random ! 
test.arrival”type := if txrec.arrival”rate > 0 then 


NNNNNNNNNN ND 


.02 


02 


03 
03 


02 
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917. 
918. 
919. 
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000176 
000176 
000176 
000215 
000220 
000226 
000226 
000226 
000226 
000226 
000232 
000232 
000237 
000245 
000245 
000245 
000245 
000245 
000245 
000246 
000246 
000246 
000246 
000246 
000250 
000252 
000252 
000252 
000252 
000271 
000271 
000276 
000276 
000276 
000276 
000303 
000303 


*000303 


000303 
000303 
000303 
000303 
000312 
000312 
000324 
000324 
000330 
000330 
000351 
000351 
000356 
000363 
000367 
000403 
000411 
000414 
000423 


ee ne nn en en en ee ee ee er ee ee ee ee ne ee ee ee ee ee ee ee ee ae ee ee er 


WDWDWWAWADWDAWWWWWWWWWWWWWWOAWWNNNND — ] RH eH HH FHP BFNNNHY HH Peeters 


proc SCAN*FILE 


constant 
else random 


else maximum rate ! 
test.arrival“type := maximum; 
test.ts°first*°rec := txrec.send*timestamp; 


! Init THINK & DELAY ! 


if test.arrival“type <> maximum then 


begin 
think.minimum := dilay.minimum := 99999999d; 
think.maximum := dilay.maximum := -99999999d; 
end; 
{-------------+--~----- ! 
! Window Timestamps ! 
| panna oa =-- ! 
call calc” window’ts; ! to compute ts“ window’ begin/end 


§' Loop thru all recs ! 


while 
begin 
if 


not error do 


txrec.send*“timestamp < test.ts“window*begin OR 
txrec.send“timestamp > test.ts”“window’end 


then 


throw*’count := throw*count + 1d 


else begin 


rt.count := rt.count + 1d; 


! Frequency dist: if a value falls on the boundary of 
' cells, it is recorded in the cell below. 
if txrec.response“time <= rt.lobound then 


i := 0 ! first cell 
else if txrec.response”°“time > rt.upbound then 
io:= rt.numcell ! last cell 


else 
i := (txrec.response“time + $dbl (rt.cellsize) 
- 1d - rt.lobound) ‘/’ rt.cellsize; 


rt.freq [i] := rt.freq [i] + 1; ! tabulate in cel] 

resp’ time $f1t (txrec.response*time); 

rt.sum rt.sum + resp time; 

rt.sum*2 rt.sum”~2 + resp“time * resp*~time; 

if txrec.response time < rt.minimum then 
rt.minimum := txrec.response time; 

if txrec.response° time > rt.maximum then 
rt.maximum ;:= txrec.response time; 


two 
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974. 
975. 
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000426 
000426 
000426 
000426 
000426 
000436 
000436 
000443 
000447 
000447 
000447 
000454 
000454 
000465 
000465 
000471 
000471 
000510 
000510 
000515 
000520 
000525 
000541 
000546 
000550 
000555 
000557 
000557 
000557 
000557 
000557 
000563 
000563 
000573 
000576 
000602 
000602 
000610 
000615 
000631 
000640 
000647 
000650 
000650 
000654 
000660 
000666 
000673 
000702 
000711 
000720 
000720 
000720 
000720 
000720 
600720 
000720 


Cee i ce ee ee ee ee ee ee ee ee oe ee ee ee ee ee ree ee ee a ee ee ey re ree re a a 


NNNOADADAAMAAAAAGAAMUMOHUNUMMHD ADH WWDAWWWHWWODWWDWDAWWDWWWWHDWADWWWWHHNWAHWWW 


proc SCAN*FILE 


! INTER-ARRIVAL TIME stats ! 


if txrec.response“time > txrec.next“arrival“time then 


atime := txrec.response” time 
else 
atime := txrec.next°arrival time; 


! Frequency dist: if a value falls on the boundary of two 
! cells, it is recorded in the cell below. 
if atime <= at.lobound then 


i := 0 ! first cell 
else if atime > at.upbound then 

i o:= at.numcell ! last cell 
else 

i := (atime + $db1 (at.cellsize) 


- ld - at.lobound) ‘/‘ at.cellsize; 


at.freq [i] := at.freq [i] + 1; ! tabulate in cell 
atime*r $flt (atime); 
at.sum at.sum + atime*r; 
at.sum*2 := at.sum*2 + atime*r * atime’r; 
if atime < at.minimum then 
at.minimum := atime; 
if atime > at.maximum then 
at.maximum := atime; 


! DELAY or THINK“ TIME stats ! 


if test.arrival*“type <> maximum then 


begin 
delta := txrec.next“arrival“time - txrec.response”time; 
delta’r := $flt (delta); 
if delta > Od then 
begin 


think.count + 1d; 
think.sum + delta’r; 
think.sum*2 + delta*“r * delta’r; 


think.count 
think .sum 
think.sum*2 


if delta < think.minimum then think.minimum := delta; 
if delta > think.maximum then think.maximum := delta; 
end else 
begin 
delta = $abs (delta); 
delta*r = $abs (delta*r); 
dilay.count := dilay.count + 1d; 
dilay.sum = dilay.sum + delta‘*r; 
dilay.sum”2 := dilay.sum*2 + deita*r * delta*r; 
if delta < dilay.minimum then dilay.minimum := delta; 
if delta > dilay.maximum then dilay.maximum := delta; 
end; 
end; 


end; !process record! 


Read next record ! 


NNNNNNNNNNNNNNNNNNNNNNNNN 


.03 
.03 
.03 
.03 
.03 
.03 
.03 
.03 
.03 
.03 
.03 
03 
.03 
03 
.03 
.03 
.03 
03 
.03 
03 
03 
03 
.03 
03 
.03 
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1031. 
1032. 
1033. 
1034. 
1035. 
1036. 
1037. 
1038. 
1039. 
1040. 
1041. 
1042. 
1043. 
1044. 
1045. 
1046. 
1047. 
1048. 
1049. 
1050. 
1051. 
1052. 
1053. 


ATIME 
ATIME*R 
DELTA 
DELTA*R 
ERROR 

I 

p 
RESP*TIME 
TXREC 
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000720 
000720 
000724 
000724 
000724 
000724 
000725 
000725 
000730 
000730 
000737 
000744 
000744 
000744 
000752 
000752 
000770 
000770 
000770 
000770 
001014 
001022 
001022 


eee ett 


ao wows a oss a AND mS = | AID DNDN EN ND 


end; 


proc SCAN*FILE 17FEB87 


call read“rec (txrec, error); 
call read (in. filenum, txrec, $len (tx*def)); 
call fileinfo (in. filenum, error); 
end; !while! 
if error <> 1 then 
begin 
call iodev*failure (in. filenum, in.filename, read“attempt); 
call abend; 


end; 
test.ts“last“rec := txrec.send timestamp; 
test.len*test := $db! ((test.ts*last*“rec - test.ts*“first“rec) 
/ 1000000f); ! seconds 
if not startup”°“parameter [param*“window].setup !no window passed! 
OR (test.ts*“window*begin <= test.ts*“first”“rec AND 
test.ts“window~end = test.ts“last*“rec) !test is in window 
then 
test.len°window := test.len°test; 
'proc scan°file! 
Variable INT (32) Direct L+013 
Variable REAL (32) Direct L+015 
Variable INT (32) Direct L+004 
Variable REAL (32) Direct L+006 
Variable INT Direct L+003 
Variable INT Direct L+002 
Variable,32 STRUCT-I Indirect L+012 
Variable REAL (32) Direct L+010 
Variable,40 STRUCT Indirect L+001 


22:05:48 


AN 


PAGE 24 


1055. 
1056. 
1057. 
1058. 
1059. 
1060. 
1061. 
1062. 
1063. 
1064. 
1065. 
1066. 
1067. 
1068. 
1069. 
1070. 
1071. 
1072. 
1073. 
1074. 
1075. 
1076. 
1077. 
1078. 
1079. 
1080. 
1081. 
1082. 
1083. 
1084. 
1085. 
1086. 
1087. 
1088. 
1089. 
1090. 
1091. 
1092. 
1093. 
1094. 
1095. 
1096. 
1097. 
1098. 
1099. 
1100. 
1101. 
1102. 
1103. 
1104. 
1105. 
1106. 
1107. 
1108. 
1109. 
1110. 
1111. 
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000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000007 
000015 
000026 
000026 
000026 
000026 
000026 
000036 
000043 
000043 
000054 
000054 
000105 
000105 
000105 
000132 
000132 
000132 
000142 
000152 
000152 
000154 
000156 
000160 
000162 
000171 
000200 
000205 
000205 
000205 
000207 
000207 
000226 
000234 
000237 
000237 
000237 
000237 
0600274 
000274 
000306 
000315 
000317 
000317 
000317 
000317 


me meme eth mt at a ast as as as 


proc eti stats; 


int i, ij; ! loop indices 

int (32) total; 

real freq*pct*cum; 

real sigma~2; ! variance of response time 
real intlen; ! width of a single ceil in sec 
int -done [0:9]; ! flags 


eti.thruput := 0.0e0; 
if test.len“window > 1d then 
eti.thruput := $fltr (rt.count) / $fltr (test. len°window); ! tx/sec 


! Response Time ! 


etl.rt°avg := etil.rt*std := sigma”2 := 0.0e0; 
if rt.count > 1d then 
begin 
etl.rt°avg := (rt.sum / $fltr (rt.count)) / 1.0e3; ! sec 
sigma*2 := (rt.sum*2 - (rt.sum * rt.sum / $fltr (rt .count))) / 
$fltr (rt.count - 1d); 
eti.rt*std := if $abs (sigma~2) < 1.0e-6 or sigma”2 < 0.0e0 
then 0.0e0 
else sqrt (sigma~2) / 1.0e3; ! sec 
end; 


$fltr (rt.minimum) / 1.0e3; ! sec 
$fltr (rt.maximum) / 1.0e3; ! sec 


eti.rt“min 
et1.rt~max 


freq*pct*cum := 0.0e0; 
jor 15 


2 s 


done ‘ 10 * [0]; 
intlen := $flt (rt.cellsize) / 1.0e3; !' cell size in sec 
if rt.count > 1d then 


do begin 
i := i+ 1; 
freq°pct*cum := freq*pct*~cum + (1.0e2 * 
$filt (rt.freq [i]) / $flt (rt.count)); 
j := Sint (freq *pct*cum / 1i10e0); 
if j > O then 
begin 
if i <9 and (freq*pct*cum >= (10.0e0 * $fIt (j)) and 
freq°pct*~cum < (10.0e0 * $flt (j+1))) 
and (not done [j]) then 
begin 
eti.rt“dist [j] := intlien * $flt (i); ! resp time in sec 
eti.rt*pct [j] := freq*pct*cum; ! actual % 
done [j] := true; ! first value only 
end; 
if j = 9 and (freq*pct*cum >= 90.0e0 and 
freq*pct*cum < 95.0e0) 
and (not done [9]) then 
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1112. 
1113. 
1114. 
1715. 
1116. 
1117. 
1118. 
1119. 
1120. 
1121. 
1122. 
1123. 
1124, 
1125. 
1126. 
1127. 
1128. 
1129. 
1130. 
1131. 
1132. 
1133. 
1134. 
1135. 
1136. 
1137. 
1138. 
1139. 
1140. 
1141. 
1142. 
1143. 
1144. 
1145. 
1146. 
1147. 
1148. 
1149. 
1150. 
1151. 
1152. 
1153. 
1154. 
1155. 
1156. 
1157. 
1158. 
1159. 
1160. 
1161. 
1162. 
1163. 
1164. 
1165. 
1166. 
1167. 
1168. 
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000337 
000337 
000351 
000360 
000362 
000362 
000362 
000374 
000374 
000404 
000407 
000411 
000411 
000411 
000411 
000422 
000427 
000427 
000427 
000427 
000427 
000437 
000444 
000444 
000456 
000456 
000507 
000507 
000507 
000534 
000534 
000534 
000544 
000554 
000554 
000554 
000554 


“000554 


000563 
000570 
000570 
000602 
000602 
000602 
000642 
000642 
000642 
000667 
000667 
000667 
000667 
000667 
000667 
000677 
000704 
000704 
000716 


i ei esas as esa a a sa ses sa 


NN] =A] RF HAHNNNNNNNDND — — |= HH HH SH BH SPNNNNNNN HHH HAH AHNNNWAAHAWWALHABAW 


proc ET1°STATS 


begin 
eti.rt“dist [j] := intlen * $flt (i); ! resp time in sec 
eti.rt*pct [j] := freq*pct*cum; ! actual %& 
done [9] := true; ! 90 percentile 
end; 
if j >= 9 and freq*pct*cum >= 95.0e0 
and (not done [0]) then 
begin 
eti.rt“dist [0] := intlen * $fit (i); ! resp time in sec 
eti.rt*pct [0] := freq*pct*cum; ! actual % 
done [0] := true; ! 95 percentile 
end; 
end; !if j > 0! 
total := total + $dbi (rt.freq [i]); 
end until total >= rt.count; 
}-------------------- ' 2.03 
! InterAryv Time ! 2.03 
J --~----------------- ' 2.03 
at“stats.avg := at*“stats.std := sigma”2 := 0.0e0; 2.03 
if rt.count > 1d then 2.03 
begin 2.03 
at°stats.avg := (at.sum / $fltr (rt.count)) / 1.0e3; !' sec 2.03 
sigma”~2 := (at.sum*2 - (at.sum * at.sum / $fitr (rt.count))) / 2.03 
$fitr (rt.count - 1d); 2.03 
at“stats.std := if $abs (sigma”™2) < 1.0e-6 or sigma”2 < 0.0e0 2.03 
then 0.0e0 2.03 
else sqrt (sigma~2) / 1.0e3; ! sec 2.03 
end; 2.03 
2.03 
at“stats.min := $fltr (at.minimum) / 1.0e3; ! sec 2.03 
at“stats.max := $fltr (at.maximum) / 1.0e3; ! sec 2.03 
[oieoemoe eon eee Se ' 
! Think Time ! 
f}—--—-- ee 1 
think.avg := think.std := sigma~2 := 0.0e0; 
if think.count > 1d then 
begin 
think.avg := (think.sum / $fltr (think.count)) / 1.0e3; ! sec 
sigma~2 := (think.sum*2 - 
(think.sum * think.sum / $fltr (think.count))) / 
$fltr (think.count - 1d); 
think.std := if $abs (sigma~2) < 1.0e-6 or sigma*2 < 0.0e0 
then 0.0e0 
else sqrt (sigma*2) / 1.0e3; ! sec 
end; 
ee ee ee oe ! 
! Delay Time ! 
De a a ee ee ! 
dilay.avg := dilay.std := sigma”2 := 0.0e0; 
if dilay.count > Id then 
begin 
dilay.avg := (ditay.sum / $fitr (dilay.count)) /°1.0e3; ! sec 
sigma” 2 = (dilay.sum*2 - 
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1169. 000716 1 2 (dilay.sum * dilay.sum / $fltr (dilay.count))) / 
1170. 000716 1 2 $fitr (dilay.count - 1d); 

1171. 000751 1 2 dilay.std := if $abs (sigma*2) < 1.0e-6 or sigma*2 < 0.0e0 

1172. 000751 1 2 then 0.0e0 

1173. 000751 1 2 else sqrt (sigma~2) / 1.0e3; ! sec 

1174. 000776 1 2 end; 

1175. 000776 1 1 

1176. 000776 1 1 end; !proc eti“stats! 
DONE Variable INT Indirect L+013 
FREQ*PCT*CUM Variable REAL (32) Direct L+005 
I Variable INT Direct L+001 
INTLEN Variable REAL (32) Direct L+011 
J Variable INT Direct L+002 
SIGMA~*2 Variable REAL (32) Direct L+007 
TOTAL Variable INT (32) Direct L+003 


at 
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1178. 
1179. 
1180. 
1181. 
1182. 
1183. 
1184. 
1185. 
1186. 
1187. 
1188. 
1189. 
1190. 
1191. 
1192. 
1193. 
1194. 
1195. 
1196. 
1197. 
1198. 
1199. 
1200. 
1201. 
1202. 
1203. 
1204. 
1205. 
1206. 
1207. 
1208. 
1209. 
1210. 
1211. 
1212. 
1213. 
1214. 
1215. 
1216. 
1217. 
1218. 
1219. 
1220. 
1221. 
1222. 
1223. 
1224. 
1225. 
1226. 
1227. 
1228. 
1229. 
1230. 
1231. 
1232. 
1233. 
1234. 
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000000 
000000 
000000 
o0ac000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
o00000 
000000 
000000 
000000 
co00000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
900000 
000000 
000000 
000000 
000000 
000000 


qoo0oo0oo0oocooce0oodcooododoo~oeoceoeocoocoocococeceocoeocoo~cee~eeceoocooco0ococo0o0eceece0coe0co0co0o0qco000 00000 


oogo0oooeoooocodoodo0ococooecooeoo0o00c0cco0ooooo00000c0c00o0coo0ooco0oo0c0c0c0coooo0o0cT00°000o0o0°o 


SAMPLE REPORT from TXREP 


17FEB87 


PARAMETERS 


1 2 


123456789- 123456789- 123456789- 123456789-123456789-123456789-123456789- 


Test Title 
Test Date 
Test Length 
Window Length 
Tx Log File 


Terminals/X25 Line 

Tx Arrival Process 

Tx Arrival Rate/X25 Line 
Tx Arrival Rate/Terminal 
Tx Inter-Arrival Time 


MEASUREMENT RESULTS 


Tx Throughput 

Tx Response Time Average 
Std Dev 
Minimum 
Maximum 
Count 


1 2 


(vs 


B30 - Standard 


86-09- 
13:12: 
13:14: 


29 
oo - 
30 - 


13:30:35 
13:25:00 


(2390 sec) 
(1987 sec) 


\VIEW.$SPOOL.ET1TXLOG.L2R 


30 
MAXIMUM 
15.500 
0.234 
6.000 


1.02) 


15.500 
0.780 
0.234 
0.345 
3.789 
12345 


3 


# 


{CONSTANT, RANDOM} 


tog Pot Bee ee see ree eenee lee 123456789- 


Tx Response Time 10% 

20% 

30% 

40% 

50% 

60% 

70% 

80% 

90% 

95% 

Tx Think Average 

Std Dev 

Minimum 

Maximum 
Count 


Average 
Std Dev 


Tx Delay 


iotuwd 


0.050 


3.789 
23456 


sec 
sec 
sec 
sec 
sec 
sec 
sec 
sec 
sec 
sec 


sec 
sec 
sec 
sec 
# 


sec 
sec 
sec 
sec 
# 


5 6 


123456789- 123456789-123456789- 


CXR LL LN LN EN LN ON ON 


10. 
. 6%) 
. 8%) 
. 3%) 
.8%) 
9%) 
5%) 
. 1%) 
.5%) 
5%) 


21 


89. 


4%) 


0%) 


7ENDIF 15 
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1236. 000000 0 OQ proc report; 

1237. 000000 1 O i heat tetestntenteateteteate 

1238. 000000 1 O begin 

1239. 000000 1 1 

1240. 000000 1 1 string header = ‘P’ ;= ["* ET1 Report (RTE System) - ", 

1241. 000017 1 1 “Performance Analysis and Measurement *"]; 

1242. 000043 1 1 

1243. 000043 1 1 define smear (string*“array, character, length) = 

1244. 000043 1 1 begin 

1245. 000043 1 #1 string“array := character; 

1246. 000043 1 1 string*array[1] ‘:=’ string“array for (length-1); 

1247. 000043 1 1 endé; 

1248. 000043 1 #1 define blank (str, strlen) = smear (str, " ", strlien)#; 

1249. 000043 1 1 define blank*line = begin line~ := " "; 

1250. 000043 1 #1 call write“file (out, line, 1); end#; 

1251. 000043 1 #1 define hyphen*line = begin smear (line*,"-",70); 

1252. 000043 1 #1 write“it; end#; 1.00 
1253. 000043 1 #1 define write*it = begin 1.00 
1254. 000043 1 1 line*~ [77] ’=:’ line” [69] for 70; 1.00 
1255. 000043 1 1 line” ‘’:=’ " a 1.00 
1256. 000043 1 #1 call write“file (out, line, 78); 1.00 
1257. 000043 1 1 endé; 1.00 
1258. 000043 1 1 

1259. 000043 1 #1 string -P; 

1260. 000043 1 #1 int linelen; 

1261. 000043 1 #1 int -line [0:66]; 

1262. 000043 1 1 string -line*™ := @line ‘<<’ 1; 

1263. 000043 1 1 fixed let; ! tocal civil time 

1264. 000043 1 #1 int (32) jday; ! dummy 

1265. 000043 1 #1 int .date“time[0:7]; ! for use with interprettimestamp 

1266. 000043 1 #1 int err; 

1267. 000043 1 #1 string .eformat [0:11]; 1 "“M<ZZZ9.999> “ or "“M<ZZ9.9> - 
1268. 000043 1 #1 string -iformat [0:199]; 

1269. 000043 1 1 string -num*str[0:7]; 

1270. 000043 1 1 int -num*wed := @num*str’>>‘1; 

1271. 000043 1 1 real real“temp; 

1272. 000043 1 1 int -netname [0:11]; 

1273. 000043 1 #1 real tput*“per“terminal, 2.03 
1274. 000043 1 1 tl, t2, 2.03 
1275. 000043 1 #1 terms, 2.03 
1276. 000043 1 1 prob; 2.03 
1277. 000043 1 1 

1278. 000043 1 #1 int subproc real*to*ascii (real*“num, real*str, flag) variable; 

1279. 000043 2 #1 Po mmm nr eee 

1280. 000043 2 #1 real real*num; 

1281. 000043 2 #1 string .real“str; 

1282. 000043 2 #1 int flag; 

1283. 000043 2 #1 begin 

1284. 000043 2 2 int len, err, 

1285. 000043 2 2 s := 0, 

1286. 000043 2 2 - format; 

1287. 000043 2 2 literal real32 = 8; !' data type for real 

1288. 000043 2 2 struct vie’def (*); ! 4 word form of variable list entry 

1289. 000043 2 2 begin 

1290. 000043 2 3 int elm*ptr; 

1291. 000043 2 3 string elm*scale, elm type; 

1292. 000043 2 3 int elm*len; 


ae 


PAGE 29 
1293. 000043 
1294. 000043 
1295. 000043 
1296. 000043 
1297. 000043 
1298. 000052 
1299. 000052 
1300. 000063 
1301. 000073 
1302. 000073 
1303. 000105 
1304. 000111 
1305. 000114 
1306. 000114 
1307. 000123 
1308. 000125 
1309. 000127 
1310. 000131 
1311. 000144 
1312. 000147 
1313. 000152 

ERR 

FLAG 

FORMAT 

LEN 

REAL32 

REAL *NUM 

REAL*STR 

S 

VLE 

VLE*DEF 
1 ELM*PTR 

ELM*SCALE 

1 ELM*TYPE 
1 ELM*LEN 
1 ELM*OCCURS 
1314. 000170 
1315. 000170 
1316. 000170 
1317. 000170 
1318. 000170 
1319. 000170 
1320. 000170 
1321. 000170 
1622. 000170 
1323. 000170 
1324. 000170 
1325. 000203 
1326. 000215 
1327. 000224 
1328. 000234 
1329. 000244 
1330. 000247 
1331. 000247 
1332. 000256 


NNNNNNNNNNNNNNNNNNNN ND 


NNNNNNNNNNNNNNNNDNE — — 
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proc REPORT 


int 
end; 
struct vie (vie*def); 


elm”occurs; 


if not $param (flag) then 
eformat “M<ZZZ9.999> " 
else 
eformat /’:=’ 


len := formatconvert (iformat,200,eformat,12,8,8,1); 
if len <= 0 then call debug; 
@format := @iformat ’>>’ 1; ! word addess of array ! 
vie ‘:=’ [0, 0 ‘<<’ 8 ‘+’ réal32]; 
vle.elm*ptr := @real“num; 
vie.elm’len := 4; !bytes long! 
vle.elm*occurs := 1; 
err := formatdata (real*str, 8!chars!, 1, len, format, 
if err then call debug; 
return len; 
end; !subproc real*to“ascii! 
Variable INT Direct S-006 
Variable INT Direct $-012 
Variable INT Indirect S-004 
Variable INT Direct S-007 
Literal INT %000010 
Variable REAL (32) Direct $-015 
Variable STRING Indirect $-013 
Variable INT Direct S-005 
Variable,10 STRUCT Direct S-003 
Variable TEMPLATE ,10 
0,2 INT Direct 
2,1 STRING Direct 
3,1 STRING Direct 
4,2 INT Direct 
6,2 INT Direct 
subproc plot“line (rtime, count, pct, pct*cum, maxfreq, j); 
real rtime, pct, pct~cum; 
int(32) count, maxfreq; 
int 4 
begin 
int(32) maxpoints := 42d; 
int num star; 
blank (line™, 70); 
call real*“to“ascii (rtime / 1e3, p); ! in seconds 
call dascii (count, -1, p [13]); 
call real“to“ascii (pct » p (15), 0); 
call real“to”“ascii (pct*cum, p [21], 0); 
p [27] := "|"; 
num’star <= $intr ( count * maxpoints / maxfreq ); 


if num*star then 


“M<ZZ9.9> vers 


time in seconds 


percent 


vie, 


1, 


0); 


wh 
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1333. 
1334. 
1335. 
1336. 
1337. 
1338. 
1339. 
1340. 
1341. 
1342. 
1343. 
1344, 


COUNT 

J 

MAXFREQ 
MAXPOINTS 
NUM*STAR 
PCT 

PCT~ CUM 
RTIME 


1345. 
1346. 
1347. 
1348. 
1349. 
1350. 
1351. 
1352. 
1353. 
1354. 
1355. 
1356. 
1357. 
1358. 
1359. 
1360. 
1361. 
1362. 
1363. 
1364. 
1365. 
1366. 
1367. 
1368. 
1369. 
1370. 
1371. 
1372. 
1373. 
1374. 
1375. 
1376. 
1377. 
1378. 
1379. 
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000260 
000275 
000275 
000302 
000302 
000310 
000320 
000334 
000337 
000337 
000337 
000370 


000403 
000403 
000403 
000403 
000403 
000403 
000403 
000403 
000403 
000403 
000403 
000403 
000403 
000403 
000403 
000403 
000403 
000403 
000403 
000403 
000403 
000403 
000403 
000403 
000403 
000403 
000403 
000403 
000403 
000403 
000403 
000403 
000403 
000403 
000403 


NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNND — — 


NNNNNNNNNNN NY 


NNNWAWAANNNN 


NNNNNNNNNNNNNNNNNNNNMNNNNNNNNNNDND — = = 


of28] ‘:=' "*" & 5 [28] for num*star - 1; 
if j >= rt.numcell then ! overflow interval ! 
begin 
line* [77] ‘=:’ line* [69] for 70; 
line” ‘’:=’ “ > "; ! to indicate overflow cell 
call write*file (out, line, 78); 
return; 
end; 
write“it; 


end; !subproc plotline! 


Variable INT (32) Direct S-014 
Variable INT Direct $-004 
Variable INT (32) Direct S-006 
Variable INT (32) Direct $-002 
Variable INT Direct S-000 
Variable REAL (32) Direct $-012 
Variable REAL (32) Direct S-010 
Variable REAL (32) Direct $-016 


subproc rtplot; 


A 


.s (startup”param*), 
pcellsize, 

n, 

count; 


int(32) rtime, 
maxfreq, 
total, 
stopcount; 


real pct, 
pct*cum; 


7IF 15 


* ET1 Response Time Distribution * 


Mean Std Min Max Count Thruput 
xxx1.259 s xxx0.552 s xxx0.329 s xxx6.856 s a998 xx23.679 tx/s 


3 5 
0123456789-123456789- 123456789- 123456789- 123456789-123456789- 123456789 
RespTime Count Pct CumPct 


xx23.750 xx345 x12.5 x99.8 |*####44448e48¢4¢44*¢¢€ 42 points max 


7ENDIF 15 


NNNN NN 


.03 
.03 
03 
03 
.03 
.03 
.03 
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1380. 
1381. 
1382. 
1383. 
1384. 
1385. 
1386. 
1387. 
1388. 
1389. 
1390. 
1391. 
1392. 
1393. 
1394. 
1395. 
1396. 
1397. 
1398. 
1399. 
1400. 
1401. 
1402. 
1403. 
1404. 
1405. 
1406. 
1407. 
1408. 
1409. 
1410. 
1411. 
1412. 
1413. 
1414. 
1415. 
1416. 
1417. 
1418. 
1419. 
1420. 
1421. 
1422. 
1423. 
1424, 
1425. 
1426. 
1427. 
1428. 
1429. 
1430. 
1431. 
1432. 
1433. 
1434. 
1435. 
1436. 


STURF .NVCTXGEN.TXREP23S [1] proc REPORT 17FEB87 

000403 2 2 LSS Sasa SSS See ! 

000403 2 2 ! Print Header ! 

000403 2 2 espa see a SSsr rss ss ! 

000403 2 2 @p := @line’; 

000406 2 2 blank (line, 70); 

000415 2 2 line*~ ‘:=’ 26#[" "] & "* ET1 Response Time Distribution *"; 1.00 

000434 2 2 call write”“file (out, line, 70,, 0); ! with top of form 

000447 2 2 blank*line; hyphen*line; 

000525 2 2 blank (line*~, 70); 

000534 2 2 p{ 3] ’:=’ "Mean"; p[14] ’:=’ "Std"; p{25] ‘:=’ "Min"; 

000567 2 2 p{36] ‘:=’ "Max" ; p[47] ‘:='‘ "Count"; p{57] ’:=’ "Thruput"; 

000622 2 2 write’ it; 

000654 2 2 blank (line*~, 70); 

000663 2 2 p([ 9] := "s"; p[20] := “s"; p[31] := “s"; p[42] := "s"; 

000677 2 2 p(65] ‘':=’ “tx/s"; 

000710 2 2 call real*to“ascii (eti.rt*“avg, p [ 0]); 

000720 2 2 call real*to“ascii (et1i.rt*std, p [11]); 

000731 2 2 call real*to*ascii (et1i.rt*min, p [22]); 

000742 2 2 call real*to“ascii (eti.rt*max, p [33]); 

000753 2 2 call dascii (rt.count, -1, p [51]); 

000763 2 2 call real*to*“ascii (eti.thruput,p [56]); 

000774 2 2 write“it; 

001025 2 2 hyphen“ line; blank*line; 

001103 2 2 blank (line*, 70); 

001112 2 2 p ‘:=’ “RespTime Count Pct CumPct"; write“it; 

001156 2 2 blank (line*~, 70); 

001165 2 2 poe SeserS SS] SaaS Sees SsaSs= "; write“it; 

001227 2 2 

001227 2 2 fo==S=f5SS4sSSS-=-> ! 

001227 2 2 ! Plot Lines ! 

001227 2 2 ls3=253S-Ss3ss5°>=— ! 

001227 2 2 @s := @startup°parameter [param’pcel}1]; 

001232 2 2 pcellsize := if s.setup then $abs (s.value) else 100; ! ms 

001244 2 2 n := $max (0, (pcellsize / rt.cellsize) - 1); 

001257 2 2 

001257 2 2 stopcount := rt.count - $db1l (rt.freq [rt.numcel1]); !all but last cell 

001272 2 2 maxfreq := total := $db1l (rt.freq [0]); ! first cell stays as is. 

001301 2 2 i 3:= 1; ! aggregate starting with second cell 

001303 2 2 do begin ! loop thru up to 998 data cells to find MAX freq 

001303 2 3 count := 0; 

001305 2 3 for j := i to i+ on do 

001307 2 3 if j < rt.numcell then 

001314 2 3 begin 

001314 2 4 count := count + rt.freq [j]; 

001321 2 4 end; 

001331 2 3 total := total + $db1 (count); 

001337 2 3 if $db1l (count) > maxfreq then maxfreq := $dbi (count); 

001351 2 3 is=it+n+t+t; 

001356 2 3 end until total >= stopcount; 

001362 2 2 if i >= rt.numcell then ! check with last cell count 

001367 2 2 if $db1 (rt.freq [rt.numcel1l]) > maxfreq then 

001400 2 2 maxfreq := $dbl (rt.freq [rt.numcel1]); 

001407 2 2 

001407 2 2 pet := pcet*cum := 0.0e0; 

001413 2 2 total := $db1l (rt.freq [0]); ! first cell stays as is. 

001420 2 2 call plot*line (0e0, $db! (rt.freq{0]), pct, pct*cum, maxfreq, Q); 
2 2 


001433 


22:05:48 


PAGE 32 

1437. 001433 
1438. 001435 
1439. 001437 
1440. 001437 
1441. 001443 
1442. 001445 
1443. 001452 
1444, 001452 
1445. 001461 
1446. 001466 
1447. 001466 
1448. 001514 
1449, 001515 
1450. 001515 
1451. 001515 
1452. 001521 
1453. 001522 
1454. 001532 
1455. 001532 
1456. 001536 
1457. 001536 
1458. 001552 
1459. 001560 
1460. 001565 
1461. 001571 
1462. 001571 
1463. 001576 
1464. 001576 
1465. 001605 
1466. 001612 
1467. 001612 
1468. 001627 
1469. 001636 
1470. 001636 
1471. 001653 
1472. 001653 
1473. 001653 

COUNT 

I 

J 

MAXFREQ 

N 

PCELLSIZE 

PCT 

PCT~CUM 

RTIME 

RT“OUT*LOOP 

Ss 

STOPCOUNT 

TOTAL 
1474. 002021 
1475. 002021 
1476. 002021 
1477. 002021 
1478. 002021 


NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 


NNN — = 


NN WWAWDWOWWONNNABDWWHOWOWABDAWHAAAAAWWWWNHNDND 


ae ae ae ee 


STURF .NVCTXGEN.TXREP23S [1] 


is:= 1; ! 


do begin ! 
count 
for j 


if j < rt .numcel] 


proc REPORT 


aggregate starting with second cell 
rtime := Oe0; 
loop thru up to 998 data cells ! 


O; pct := Oe0; 
ito i+on do 


begin 


rtime : 


then 


= rtime + $db] 
count := count + rt.freq [jl]; 


(rt.cellsize); 


($filt (rt.freq [j]) / $fit (rt.count)); 


keep j constant so that plot*~line does not 


! mistaken it for the overflow interval 


pct pet + 1.0e2 * 
end else ! 
begin 

j := rt.numcell - 


end; 
rt*out* loop: 


goto rt*out*loop; 


1; ! the 


last valid index ! 


pct*cum := pct*cum + pct; 
call plot“line ($fit (rtime), $db! (count), pct, pct ~cum, 
maxfreq, j); 
total := total + $db) (count); 
is= i+ nt; 
end until total >= stopcount; 
if i >= rt.numcell then ! plot last cell if needed 
begin 
rtime := rtime + $db1l (rt.cellsize); 
count := rt.freq [rt.numcell]; 
pct = 1.0e2 * 
($filt (rt. freq [rt.numcell]) / $flt (rt.count)); 
pct*cum := pct*cum + pct; 
call plot*line ($flt (rtime), $db1 (count), pct, pct*cum, 
maxfreg, rt.numcel}); 
end; 
end; !subproc rtplot! 
Variable INT Direct $-014 
Variable INT Direct $-021 
Variable INT Direct $-020 
Variable INT (32) Direct S-011 
Variable INT Direct $-015 
Variable INT Direct $-016 
Variable REAL (32) Direct S-003 
Variable REAL (32) Direct S-001 
Variable INT (32) Direct $-013 
Label %001532 
Variable,32 STRUCT-I Indirect S-017 
Variable INT (32) Direct S-005 
Variable INT (32) Direct S-007 


subproc plot” line*a (rtime, count, 


real 


rtime, 


pct, prob; 


int(32) count, maxfreq; 


pet, prob, maxfreq, j); 


NNNNNNN 
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.03 
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1479. 
1480. 
1461. 
1482. 
1483. 
1483.1 
1484. 
1485. 
1486. 
1487. 
1488. 
1489. 
1490. 
1491. 
1492. 
1493. 
1494. 
1495. 
1496. 
1497. 
1498. 
1499. 
1500. 
1500.1 
1501. 
1502. 
1503. 
1504. 
1505. 
1506. 
1507. 
1508. 
1509. 
1510. 
1511. 


COUNT 

J 

MAXFREQ 
MAXPCT 
MAXPOINTS 
NUM” STAR 
OFFSET 
PCT 

PROB 

RT IME 


S12. 
1513. 
1514. 
1515. 
1516. 
7517. 
1518. 
1519. 
1520. 
1521. 


$TURF .NVCTXGEN.TXREP23S [1] 


002021 
002021 
002021 
002021 
002021 
002021 
002021 
002021 
002034 
002046 
002055 
002065 
002075 
002100 
002100 
002107 
002111 
002126 
002126 
002140 
002144 
002144 
002150 
002160 
002167 
002167 
002174 
002174 
002202 
002212 
002226 
002233 
002233 
002233 
002264 


002277 
002277 
002277 
002277 
002277 
002277 
002277 
002277 
002277 
002277 


NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 


NNNNNNN — — — 


NNNWWWWWNHNNNNNNNNNNNNNNNNNNNNNNNDND = = 


RO NO AO OND NO Ss et ee es ee 


begi 


end; 


int j; 


n 


int(32) maxpoints 


proc REPORT 


int num” star; 


real maxpct; 
int offset; 


blank (line~, 
call real*to“ascii 


call dasc 


call real*to*ascii 


p [27] := 
num’ star 


p[28] 


maxpct := 


70); 


ii (count, -1, 
call real*to*“ascii (pct 


(prob 


:= 42d; 


p 
» Pp 


(rtime / 1e3, p); 
p [13]); 


[15], 
[21], 


in seconds 


:= $intr ( count * maxpoints / maxfreq ); 
if num*star then 


4.2! 
. 


le2 * $flt (maxfreq) / $flt (rt.count); 


"#" & p» [28] for num star - 


if prob >= maxpct then 


offse 
else 
offse 


tosis 


t := 


$int (maxpoints) 


if offset then p [27 + offset] 


if j >= at.numcell then 


begin 
line* 
line* 
call 
retur 
end; 


write“it; 


[77] 


Ten! 


‘=:’ line*~ 


u > 


write’ file (out, 


nN; 


'subproc plotline! 


Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 


subproc atplot; 


INT (32) 

INT 

INT (32) 

REAL (32) 
INT (32) 

INT 

INT 

REAL (32) 
REAL (32) 
REAL (32) 


1 
. 


overflow interval 


{69] for 70; 
! to indicate overflow cell 


line, 


-s (startup”param**), 
pcellsize, 


n 


count; 


, 


78); 


Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 


$intr ($F1lt (maxpoints) * (prob / maxpct)); 
:= wales 


S-017 
S-007 
S-O11 
S-002 
$-005 
$-003 
S-000 
$-015 
$-013 
S-021 


fin percent! 


NNNNNN Nb NNNNN ND 


03 
03 
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.03 
.03 
.03 
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03 
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16992 


bweee 


1523. 
1524. 
1525. 
1526. 
1527. 
1528. 
1529, 
1530. 
1531. 
1532. 
1533. 
1534. 
1538. 
1536. 
1537. 
1538. 
1539. 
1540. 
1541. 
1542. 
1543. 
1544, 
1545. 
1546. 
1547. 
1548. 
1549. 
1550. 
1551. 
1552. 
1553. 
1554. 
1555. 
1556. 
1557. 
1558. 
1559. 
1560. 
1561. 
1862. 
1563. 
1564. 
1565. 
1566. 
1567. 
1568. 
1569. 
1570. 
1571. 
1572. 
1573. 
1574. 
15758. 
1576. 
1577. 
1578. 


$TURF .NVCTXGEN.TXREP23S [1] proc REPORT 

002277 2 2 

002277 2 2 int(32) atime, 

002277 2 2 maxfreq, 

002277 2 2 total, 

002277 2 2 stopcount; 

002277 2 2 

002277 2 2 real pct, 

002277 2 2 pct*cum; 

002277 2 2 ?IF 15 

002277 2 2 

002277 2 2 * ET1 Inter-Arrival Time Distribution * 

002277 2 2 

QOD2T FF DQ a 
002277 2 2 Mean Std Min Max Count Thruput 
002277 2 2 xxx1.259 s xxx0.552 s xxx0.329 s xxx6.856 s 8998 xx23.679 tx/s 
OOD 2T FT DQ mm ene 
002277 2 2 1 2 3 4 5 6 

002277 2 2 0123456789- 123456789- 123456789- 123456789- 123456789- 123456789-123456789 
002277 2 2 

002277 2 2 ArrvTime Count Pct Theory 

002277 2 2 wrcrrrtr sett cots s ttc 

002277 2 2 xx23.750 xx345 x12.5 x99.8 | *##*####44444444*#% 42 pDOints max 

002277 2 2 

002277 2 2 ?7ENDIF 15 

002277 2 2 

002277 2 2 @s := @startup*parameter [param*terms]; 

002303 2 2 terms := if s.setup then ! in case of merged txlog files ! 
002303 2 2 $fit ($abs (s.value)) 

002303 2 2 else !' this is correct with unmerged txlog! 
002303 2 2 $flt (test.terminals); 

002317 2 2 tput“per“terminal := et1l.thruput / terms; 

002324 2 2 t2 := 1e2; !=exp(0) when t=O! !in percent=100%! 

002327 2 2 

002327 2 2 tere SSS SS SS ! 

002327 2 2 t Print Header ! 

002327 2 2 LSS Sese essa sSse= ! 

002327 2 2 @p := @line’; 

002331 2 2 blank (line”, 70); 

002340 2 2 line* ‘:=’23*[{" “] & "* ET1 Inter-Arrival Time Distribution *"; 
002357 2 2 call write*file (out, line, 70,, 0); ! with top of form 
002372 2 2 blank*line; hyphen” line; 

002450 2 2 blank (line*, 70); 

002457 2 2 ep[ 3] ‘:=’ “Mean"; p[14] ‘:=’ "Std"; p[25)] ‘:=’ "Min"; 
002512 2 2 p[36] ’:=’ "Max" ; p[47] ‘:=’ "Count"; p[57] ’:=% "Thruput"; 
002545 2 2 write“it; ; 

002577 2 2 blank (line*, 70); 

602606 2 2 pf 9} := "s"; p[20}] := "s"; p{31}] := “s";3; pl42} := “s"; 
002622 2 2 p(65] ‘:=’ "“tx/s"; 

002633 2 2 call real*to“ascii (at*stats.avg, p [ 0)); 

002643 2 2 call real*to°ascii (at“stats.std, p [11]); 

002654 2 2 call real*to°“ascii (at*“stats.min, p [22]); 

002665 2 2 call real*“to“ascii (at*stats.max, p [33]); 

002676 2 2 call dascii (rt.count, -1, p [51]); 

6002706 2 2 call real*to*“ascii (et1l.thruput,p [56]); 

002717 2 2 write“it; 

002750 2 2 hyphen“ line; blank” line; 

003127 2 2 blank (line*, 70); 


NNNNNN ND 


03 
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03 
03 
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1579. 
1580. 
1581. 
1582. 
1583. 
1584. 
1585. 
1586. 
1587. 
1588. 
1589. 
1590. 
1591. 
1592. 
1593. 
1594. 
1595. 
1596. 
1597. 
1598. 
1599. 
1600. 
1601. 
1602. 
1603. 
1604. 
1605. 
1606. 
1607. 
1608. 
1609. 
1610. 
1611. 
1612. 
1613. 
1614. 
1615. 
1616. 
1617. 
1618. 
1619. 
1620. 
1621. 
1622. 
1623. 
1624, 
1625. 
1626. 
1627. 
1628. 
1629. 
1630. 
1631. 
1632. 
1633. 
1634. 
1635. 


$TURF .NVCTXGEN.TXREP23S [1] proc REPORT 


003136 
003200 
003207 
003251 
003251 
003251 
003251 
003251 
003254 
003266 
003301 
003301 
003314 
003323 
003325 
003325 
003327 
003331 
003336 
003336 
003343 
003353 
003361 
003373 
003400 
003404 
003411 
003422 
003431 
003431 
003435 
003442 
003455 
003455 
003457 
003461 
003463 
003467 
003471 
003476 
003476 
003505 
003512 
003512 
003540 
003541 
003541 
003541 
003545 
003546 
003556 
003556 
003562 
003562 
003562 
003562 
003562 


NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 


WOWWWWWHOAHRADWARARBAWWWWONNNNNNNNNNNAWAWABWWWANNNNNNNNNNNNNNDND 


“:=' “ArrvTime Count Pct Theory"; write“it; 2.03 
blank (line*, 70); 
po 22S" “Sena SSS Sts SSeS SPSoSS "; write“it; 


! Plot Lines ! 


@s := @startup”parameter [parampcella]; 2.03 
pcellsize := if s.setup then $abs (s.value) else 1000; !1sec! 2.03 
n := $max (0, (pcellsize / at.cellsize) - 1); 
stopcount := rt.count - $db! (at.freq [at.numcel1]); !al] but last cell 
maxfreq := total := $dbl (at.freq [0]); ! first cell stays as is. 
io3:= 1; t aggregate starting with second cel! 
do begin ! loop thru up to 998 data cells to find MAX freq 
count := Q; 
for j := i to i+n7”do 
if j < at.numcell then 
begin 
count := count + at.freq [j]; 
end; 
total := total + $dbl (count); 
if $db1 (count) > maxfreq then maxfreq := $db] (count); 
13= itn+ 13 
end until total >= stopcount; 
if i >= at.numcell then ! check with last cell count 
if $dbd1l (at.freq fat.numcel!]) > maxfreq then 
maxfreq := $db1 (at.freq [at.numcel1]); 
pct := pet*cum := 0.0e0; 
total := $dbl (at.freq [0]); ! first cell stays as is. 
call plot*line (Oe0, $db! (at.freq[0]), pct, pct*cum, maxfreq, 0); 
ios:= 1; ! aggregate starting with second cel] 
atime := Oe0; 
do begin ! loop thru up to 998 data cells ! 
count := 0; pet := Oe; 
for j := i to i + n do 
if j < at.numcel) then 
begin 
atime := atime + $dbl (at.cellsize); 
count := count + at.freq [j]; 
pct = pct + 1.0e2 * 


($flt (at.freq [j]) / $flt (rt.count)); 


end else ! keep j constant so that plot” line does not 2.03 
! mistaken it for the overflow interval 2.03 
begin 2.03 
j := at.numcell - 1; ! the last valid index ! 2.03 
goto at*“out~ loop; 2.03 
end; 2.03 
at”~out* loop: 2.03 
pct*cum := pct*~cum + pct; 
2.03 
-- To compare ‘pct’ versus the theoretical value for an exponential 2.03 
--~ distribution, we use the folowing formula: 2.03 
2.03 
-(rate * a) -(rate * b) 2.03 
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1636. 003562 2 3 -- Pr {a <= x <= b} =e -e 2.03 
1637. 003562 2 3 -- 2.03 
1638. 003562 2 3 -- where rate is the throughput rate and a,b are points in time. 2.03 
1639. 003562 2 3 —— 2.03 
1640. 003562 2 3 tl := t2; 2.03 
1641. 003564 2 3 t2 := 1e2 * exp” (- tput“per“terminal * $filt (atime) / 1e3); 2.03 
1642. 003604 2 3 prob := if $abs (t1 - t2) < le-6 2.03 
1643. 003604 2 3 then 0e0 2.03 
1644. 003604 2 3 else (t1 - t2); 2.03 
1645. 003627 2 3 
1646. 003627 2 3 call plot“line*a ($flt (atime), $db1l (count), pct, prob, 2.03 
1647. 003627 2 3 maxfreq, j); 
1648. 003643 2 3 total := total + $db1l (count); 
1649. 003651 2 3 ios= i+t+nt i; 
1650. 003660 2 3 end until total >= stopcount; 
1651. 003664 2 2 
1652. 003664 2 2 if i >= at.numcell then ' plot last cell if needed 
1653. 003671 2 2 begin 
1654. 003671 2 3 atime := atime + $dbl (at.cellisize); 
1655. 003700 2 3 count := at.freq [at.numcel1]; 2.03 
1656. 003705 2 3 pct = 1.0e2 * 2.03 
1657. 003705 2 3 ($flt (at.freq [at.numcel1]) / $flt (rt .count)); 2.03 
1658. 003722 2 3 pet*cum := pct*cum + pct; 
1659. 003726 2 3 ! Prob {x >= a} = 1 - Prob {0 <= x <= a} 2.03 
1660. 003726 2 3 ! - (rate * a) 2.03 
1661. 003726 2 3 ! =e 2.03 
1662. 003726 2 3 prob := 1e2 * exp” (- tput“per“terminal * $fit (atime) / 1e3);2.03 
1663. 003746 2 3 prob := if $abs (prob) < 1e-6 2.03 
1664. 003746 2 3 then Oe0 2.03 
1665. 003746 2 3 else prob; 
1666. 003761 2 3 call plot*“line*a ($flt (atime), $db1 (count), pct, prob, 2.03 
1667. 003761 2 3 maxfreq, at.numcell); 
1668. 003776 2 3 end; 
1669. 003776 2 2 
1670. 003776 2 2 end; !subproc atplot! 2.03 

ATIME Variable INT (32) Direct $-013 

AT“ OUT*LOOP Label %003556 

COUNT Variable INT Direct $-014 

IT Variable INT Direct $-021 

J Variable INT Direct $-020 

MAXFREQ Variable INT (32) Direct S-011 

N Variable INT Direct $-015 

PCELLSIZE Variable INT Direct S-016 

PCT Variable REAL (32) Direct $-003 

PCT*~ CUM Variable REAL (32) Direct S-001 

s Variable,32 STRUCT-I Indirect $-017 

STOPCOUNT Variable INT (32) Direct S-005 

TOTAL Variable INT (32) Direct S-007 
1671. 004052 1 1 
1672. 004052 1 1 
1673. 004052 1 1 
1674. 004052 1 1 | meee er ee een ! 
1675. 004052 1 #1 ! Header ' 
1676. 004052 1 1 aaa a I cata el ! 
1677. 004052 1 1 hyphen” line; 


“cf 
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1679. 
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1682. 
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1685. 
1686. 
1687. 
1688. 
1689. 
1690. 
1691. 
1692, 
1693. 
1694. 
1695. 
1696. 
1697. 
1698. 
1699. 
1700. 
1701. 
1702. 
1703. 
1704. 
1705. 
1706. 
1707. 
1708. 
1709. 
1710. 
1711. 
1712. 
1713. 
1714. 
1715. 
1716. 
1717. 
1718. 
1719. 
1720. 
1721. 
1722. 
1723. 
1724, 
1725. 
1726. 
1727. 
1728. 
1729. 
1730. 
1731. 
1732. 
1733. 
1734. 


STURF .NVCTXGEN.TXREP23S [1] proc REPORT 17FEB87 
004146 1 1 line~ ‘:=’ header for 70; 

004155 1 1 write“it; 

004206 1 #1 hyphen” line; 

004247 1 1 blank*line; 

004264 1 1 

004264 1 ] Lesser SSoSSss-SsS> ! 

004264 1 1 ! Parameters ! 

004264 1 1 fn ae ! 

004264 1 1 line* ’:=’ “----- PARAMETERS " -> @p; 

004275 1 #1 ‘:=’ "=" & p for 70 - (@p ‘-’ @line’); 

004314 1 1 write*it; 

004345 1 ] blank*line; 

004364 1 1 

004364 1 1 {er eee ! 

004364 1 1 ! Test Information ! 

004364 1 1 L=SS ese Shes S-=S=—4- ! 

004364 1 #1 blank (line*, 70); line* ‘:=’ "Test Title"; line”~[{26] := "="; 
004406 1 1 if startup °parameter[param*title].setup then 

004412 1 1 line*[30] ‘:=’ startup*parameter[param’title].s*name for 24; 
004421 1° #1 write“it; 

004452 1 1 

004452 1 #1 blank (line*, 70); line* ‘:=’ "Test Date"; line” [26] := "="; 
004474 1 1 lect := converttimestamp (test.ts*“first“rec); 

004510 1 1 jday := interprettimestamp (Ict, date“time), 

004516 1 1 line*[30] ’:=’ “yy-mm-dd"; 

004527 1 1 call numout (line*[30], ($udb1 (date*time[0])‘\‘100), 10, 2); ! year 
004541 1 #1 call numout (line*(33], date*“time[1], 10, 2); ! month 

004551 1° #1 call numout (line*~ [36], date”“time[2], 10, 2); ! day 

004561 1. #1 write“it; 

004612 1 1 

004612 1 1 blank (line*, 70); line* ‘:=’ "Test Length"; line*[26] := "="; 
004634 1 1 line*(30] ‘’:=’ “hh:mm:ss - hh:mm:ss (" —-> @p; 

004646 1 1 call numout (line~[30], date”time[3], 10, 2); ! hour 

004655 1 1 call numout (line*[33], date“time[4], 10, 2); ! minute 

004665 1 1 call numout (line ~ [36], date”time[5], 10, 2); ! second 

004675 1 #1 Ict := converttimestamp (test.ts”last“rec); 

004711 1 #1 jday := interprettimestamp (Ict, date”time); 

“004717 1 1 call numout (line*[41], date“time[3], 10, 2); ! hour 

004727 1 #1 call numout (line*~[44], date“time[4], 10, 2); ! minute 

004737 1 1 call numout (line~ [47], date”“time[5], 10, 2); ! second 

004747 1 #1 err := dascii (test.len“test, 10, p); 

004757 1 «#1 @p := @p ‘+’ err; 

004763 1 1 ‘ss’ “ sec)"; 

004773 1 #1 write“it; 

005024 1 1 

005024 1 #1 if startup” parameter [param°window].setup then 

005030 1 1 begin ! window parameter was passed in startup message 

005030 1 2 blank (line*, 70); line™ ‘:=’ "Window Length"; line” [26] := "="; 
005052 1 2 line” [30] ‘’:=’ “hh:mm:ss - Hh:mm:ss (" —-> @p; 

005064 1 2 ict := converttimestamp (test.ts”window”begin) ; 

005100 1 2 jday := interprettimestamp (ict, datetime); 

005106 1 2 call numout (line*[30], date“time[3], 10, 2); ! hour 
005116 1 2 call numout (line~[33], date”“time[4], 10, 2); ! minute 
005126 1 2 call numout (line~ [36], date“time[{5], 10, 2); ! second 
005136 1 2 Ict := converttimestamp (test.ts“window’end); 

005152 1 2 jday := interprettimestamp (lct,. date time); 

005160 1 2 call numout (line*[41], date*time[3], 10, 2); ! hour 
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1735. 
1736. 
1737. 
1738. 
1739. 
1740. 
1741. 
1742. 
1743. 
1744. 
1745. 
1746. 
1747. 
1748. 
1749. 
1750. 
1751. 
1752. 
1753. 
1754. 
1755. 
1756. 
1757. 
1758. 
1759. 
1760. 
1761. 
1762. 
1763. 
1764. 
1765. 
1766. 
1767. 
1768. 
1769. 
1770. 
1771. 
1772. 
1773. 
1774. 
1775. 
1776. 
1777. 
1778. 
1779. 
1780. 
1781. 
1782. 
1783. 
1784. 
1785. 
1786. 
1787. 
1788. 
1789. 
1790. 
1791. 


$TURF .NVCTXGEN.TXREP23S [1] proc REPORT 

005170 1 2 call numout (line*~[44], date“time[4], 10, 2); ! minute 

005200 1 2 call numout (line*[47], date*“time[5], 10, 2); ! second 

005210 1 2 err := dascii (test.len“window, 10, p); 

005220 1 2 @p := @p ‘+’ err; 

005224 1 2 ‘:;=’ “ sec)"; 

005236 1 2 write it; 

005267 1 2 end else 

005270 1 1 begin 1.00 
005270 1 2 line*[8]’:=‘ “Window Length"; !default to all recs in file 1.00 
005301 1 2 cail write“file (out, line, 78); 1.00 
005314 1 2 end; 

005314 1 1 

005314 1 #1 blank (line*~, 70); line* ‘:=' "Tx Log File"; line*[26] := "="; 

005336 1 1 @p := @netname ‘<<’ 1; 

005341 1 1 = "NX"; 

005343 1 = #1 p [1] := mysystemnumber; ! make network form 

005346 1 1 p [2] ‘:=’ in.name* [1] for 6; 

005355 1 1 netname [4] ‘:=’ in. filename [4] for 8; 

005362 1 1 call fnamecollapse (netname, line~[30]); 

005370 1 1 write*it; 

005421 1 1 

005421 1 1 blank*line; 

005436 1 1 

005436 1 1 Pee SSS ss SS s-SS<S5= ! 

005436 1 1 ! ARRIVAL Statistics ! 

005436 1 1 | ean nnn ! 

005436 1 1 blank (line*~, 70); 

005445 1 #1 line~ ‘:=’ "Terminals/X25 Line"; line” [26] := “="; 1.02 
005460 1 #1 err := dascii ($dbl(test.terminals), -10, line*(35]); 

005471 1 1 line* [36] ‘:=' " #"; 

005502 1 1 write“it; 

005534 1 1 

005534 1 #1 blank (line*, 70); line~ ’:=’ “Tx Arrival Process"; line”~[26] := "="; 
005556 1 1 case test.arrival”type of 

005561 1 1 begin 

005561 1 2 line” [28] ‘:=’ " MAXIMUM"; 

005573 1 CE1 line” [28] ‘:=’ "CONSTANT"; 

005605 1 CE2 line” [28] ‘:=’‘ " RANDOM"; 

005617 1 CE3 end; 

005623 1 = #1 write’ it; 

005654 1 1 

005654 1 1 blank (line*, 70); 

005663 1 #1 line* ‘:=’ "Tx Arrival Rate/X25 Line"; line“[{26] := "="; 1.02 
005676 1 1 real*temp := $flt (test .arrival”“rate) / 10.0e0; 

005704 1 1 @p := @line” [28] ‘+’ real“to”ascii (real“temp, line” [{28]); 

005720 1 #1 p ‘:=’ “ tx/sec"; 

005730 1 1 write“it: 

005761 1 1 

005761 1 1 blank (line*~, 70); line”~ ‘:=’ "Tx Arrival Rate/Terminal"; 

oo6o00 1 1 line” [26] := “="; 

006003 1 1 real*temp := ($filt (test.arrival*“rate) / 10.0e0) / 

006003 1 1 $flt (test.terminals); 

006014 1. 1 @p := @line”~[28] ‘+’ real“to”“ascii (real*“temp, line”[28]); 

006030 1 1 p ‘:=’ “ tx/sec"; 

006040 1 =#1 write“it; 

006071 1 1 

006071 1 1 blank (line*, 70); line™ ‘:=’ “Tx Inter-Arrival Time"; 
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1792. 
1793. 
1794. 
1795. 
1796. 
1797. 
1798. 
1799. 
1800. 
1801. 
1802. 
1803. 
1804. 
1805. 
1806. 
1807. 
1808. 
1809. 
1810. 
1811. 
1812. 
1813. 
1814. 
1815. 
1816. 
1817. 
1818. 
1819. 
1820. 
1821. 
1822. 
1823. 
1824. 
1825. 
1826. 
1827. 
1828. 
1829. 
1830. 
1831. 
1832. 
1833. 
1834. 
1835. 
1836. 
1837. 
1838. 
1839. 
1840. 
1841. 
1842. 
1843. 
1844. 
1845. 
1846. 
1847. 
1848. 
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006113 
006116 
006131 
006144 
006155 
006207 
006207 
006224 
006224 
006224 
006224 
006224 
006253 
006272 
006323 
006340 
006340 
006340 
006340 
006340 
006362 
006377 
006407 
007030 
007030 
007047 
007052 
007066 
007076 
007127 
007127 
007152 
007167 
007177 
007230 
007230 
007253 
007272 
007302 
007333 
007333 
007356 
007373 
007403 
007434 
007434 
007457 
007467 
007500 
007532 
007532 
007547 
007547 
007547 
007547 
007547 
007566 


meh eet et 


ee ee ee en ne re re ee re re ae re ee eee Sree ar oe ee ar ee ae anrveee arenes renee arenes reer oe re es ree re ree re re ree ee ee ee ee en ee re 


line* [26] := "="; 

real*temp := if real*temp > OeO then 1e0 / real”~temp else Oe0; 
@p := @line*[(28] ‘+’ real*to*“ascii (real*temp, line~[28]); 
line“ [36] ‘:=’ " sec"; 


write*it; 


blank*line; 


! Measurement Results ! 


line” ‘:;=/ "“----- MEASUREMENT RESULTS (" & txrep’vs & ") " -> @p; 2.01 
: -" & p for 70 - (@p ‘-’ @line”); 
write“it; 


blank (line*, 70); line* ‘:=’ "Tx Throughput"; line*[26] := "="; 
@p := @line*[28] ‘+’ real“to*ascii (et1.thruput, line~[28]); 

p ’:=’ “ tx/sec"; 

write“it; 

blank (line*, 70); line*~ ‘:=’ "Tx Response Time Average”; 
line” [26] := “="; 

@p := @line*[28] ‘+’ real*to*ascii (eti.rt*avg, line [28]); 

p ‘’:=’ " sec the 

write“it; 

blank (line*, 70); line*[17] ‘:=‘ "Std Dev"; line”~[26] := "="; 
@p := @line*[28] ‘+’ real*to*ascii (et1i.rt*std, line”[28]); 

p ‘:=’ “" sec "3 

write“it; 

blank (line*, 70); line*[{17] ‘:=’ "Minimum"; line” [26] := "="; 
@p := @line*[28] ‘+’ real*to“ascii (et1l.rt*min, line”[28]); 

p ‘:=’ " sec " 

write“it; 

blank (line*, 70); line*[{17] ‘:=’ "Maximum"; line*[26] := "="; 
@p := @line*(28] ‘+’ real*to*“ascii (et1l.rt*max, line” [28]); 

p ‘:=’ “ sec "3 

write it; 

blank (line*, 70); line*{17]) ‘:=’ “Count"; line” [26] := "="; 
err := dascii (rt.count, -10, line*[35]); 


line“ [36] ‘:=’ " # "5 
write’ it; 


blank“ line; 


! RT Distribution ! 


blank (line*, 70); line” ‘:=‘ "Tx Response Time 10%"; 
line*[26] := "="; 
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1849. 007571 1 #1 @p := @line”[(28] ‘+’ real*“to°ascii (eti.rt“dist [1], line™[28]); 
1850. 007606 1 1 p ‘':=’ " sec (“ -> @p; 

1851. 007617 1 #1 @p := @p ’+’ real*to*ascii (eti.rt*pet [1], p, err); 

1852. 007632 1 1 p ‘:=’ "%)"; 

1853. 007642 1 1 write“it; 

1854. 007673 1 1 

1855. 007673 1 1 blank (line*, 70); line*[17] ’:=’ "20%"; line*(26] := “="; 

1856. 007716 1 1 @p := @line*[28] ‘+’ real“to°ascii (et1l.rt°“dist [2], line*[{28]); 
1857. 007733 1 1 p ‘:=’ “ sec (" -> @p; 

1858. 007744 1 #1 @p := @p ‘+’ real*“to°ascii (eti.rt“pct [2], p, err); 

1859. 007757 1 1 p ‘:=’ "%)"; 

1860. 007767 1 1 write“it; 

1861. 010022 1 1 

1862. 010022 1 1 blank (line~, 70); line*(17] ‘:='‘ "30%"; line“ [26] := "="; 

1863. 010045 1 #1 @p := @line*~ (28) ‘+’ real*“to“ascii (eti.rt*“dist [3], line*[28]); 
1864. 010062 1 1 p ’:=’ " sec (" -> @p; 

1865. 010073 1. #1 @p := @p ‘+’ real*to“ascii (eti.rt*pct [3], p, err); 

1866. 010106 1 1 p ‘’:=’ "%)"; 

1867. 010116 1 1 write“it; 

1868. 010147 1 1 

1869. 010147 1 #1 blank (line*~, 70); line*[17] ‘:=’ "40%"; line” [26] := "="; 

1870. 010172 1 #1 @p := @line” [28] ‘+’ real*“to“ascii (eti.rt*“dist [4], line~[28]); 
1871. 010207 1 1 p ‘:=’ " sec (" -> @p; 

1872. 010220 1 1 @p := @p ‘+’ real“to*ascii (eti.rt*pct [4], p, err); 

1873. 010233 1 1 p ‘3:=' "%)"; 

1874. 010243 1 1 writeit; 

1875. 010274 1 1 

1876. 010274 1 1 blank (line*, 70); line*[17] ‘:=’% "50%"; line*[26] := "="; 

1877. 010317 1 1 @p := @line”[28] ‘+’ real*to“ascii (eti.rt“dist [5], line*[28]); 
1878. 010334 1 1 p ‘:=’ " sec (" -> @p; 

1879. 010345 1. 1 @p := @p ‘+’ real*to*ascii (eti.rt*pct [5], p, err); 

1880. 010360 1 1 p ‘’:=’ "%)"; 

1881. 010370 1 1 write“it; 

1882. 010423 1 1 

1883. 010423 1 1 blank (line~, 70); line*[17] ‘:=’ "60%"; line*[26] := "="; 

1884. 010446 11 @p := @line” [28] ‘+’ real*“to°ascii (eti.rt“dist [6], line*{28]); 
1885. 010463 1 #1 p ‘:=’ " sec (" -> @p; 

1886. 010474 1 #1 @p := @p ‘+’ real“to“ascii (eti.rt*pet [6], p, err); 

1887. 010507 1 1 p ‘:=' "%)"; 

1888. 010517 1 1 write “it; 

1889. 010550 1 1 

1890. 010550 1 1 blank (line~, 70); line*[17] ‘:=’ "70%"; line*[26] := "="; 

1891. 010573 1. #1 @p := @line” [28] ‘+’ real*to”“ascii (eti.rt*“dist [7], line*[28]); 
1892. 010610 1 1 p ‘:=’ " sec (" -> @p; 

1893. 010621 1 1 @p := @p ‘+’ real“to°“ascii (eti.rt*“pct [7], p, err); 

1894. 010634 1 1 p ’:=’ "%)"; 

1895. 010644 1 J werite*“it; 

1896. 010675 1 1 

1897. 010675 1 #1 blank (line*~, 70); line*{17] ‘:=’ “80%"; line*[26] := "="; 

1898. 010720 1 1 @p := @line”~[28] ‘+‘ real“to*“ascii (eti.rt*“dist [8], line*[28]); 
1899. 010735 1 1 p ‘:=' " sec (" -> @p; 

1900. 010746 1 #1 @p := @p ‘+’ real“to”ascii (eti.rt*“pct [8], p, err); 

1901. 010761 1 1 p ‘:=’ "%)"; 

1902. 010771 1 1 write*it; 

1903. 011024 1 1 

1904. 011024 1 1 blank (line*, 70); line*[17] ‘:=’ "90%"; line*[26] := “="; 

1905. 011047 1 #1 @p := @line” [28] ‘+’ real*to°ascii (eti.rt“dist [9], line*[28]); 
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1906. 
1907. 
1908. 
1909. 
1910. 
1911. 
1912. 
1913. 
1914. 
1915. 
1916. 
1917. 
1918. 
1919. 
1920. 
1921. 
1922. 
1923. 
1924. 
1925. 
1926. 
1927. 
1928. 
1929. 
1930. 
1931. 
1932. 
1933. 
1934. 
1935. 
1936. 
1937. 
1938. 
1939. 
1940. 
1941. 
1942. 
1943. 
1944. 
1945. 
1946. 
1947. 
1948. 
1949. 
1950. 
1951. 
1952. 
1953. 
1954. 
1955. 
1956. 
1957. 
1958. 
1959. 
1960. 
1961. 
1962. 
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011064 
011075 
011110 
011120 
011431 
011431 
011454 
011471 
011502 
011515 
011525 
011556 
011556 
011562 
011562 
011577 
011577 
011577 
011577 
011577 
011616 
011621 
011635 
011645 
011700 
011700 
011723 
011740 
011750 
012003 
012003 
012026 
012026 
012044 
012057 
012067 
012120 
012120 
012143 
012143 
012162 
012175 
012205 
012236 
012236 
012261 
012271 
012303 
012305 
012312 
012324 
012336 
012346 
012402 
012402 
012417 
012417 


I I ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNDND ] = ee eet eetesteo 


p ‘:= sec (" -> @p; 

@p := @p ‘+’ real*to*ascii (eti.rt*pct [9], p, err); 
p fw "Sj"; 

write“it; 


blank (line*~, 70); line*({17] ‘:=’ "95%"; line*[26] := "="; 


@p := @line* [28] ‘+’ real*to“ascii (eti.rt*dist [0], line*(28]); 
p s =? “ sec (" -> @p; 

@p := @p ‘+’ real*to*“ascii (et1i.rt*pct [0], p, err); 

p 4 en’ "%)" 5 


write’ it; 

if test.arrival“type <> maximum then 
begin 

blank“ line; 


! THINK Statistics ! 


blank (line~, 70); line* ‘:=’ " Tx Think Average"; 


line*(26] := "="; 

@p := @line*[28] ‘+’ real*to*ascii (think.avg, line*~[28]); 

p ‘:=’ " sec ny 

write“it; 

blank (line*~, 70); line*[17] ‘:=’ “Std Dev"; line*[(26] := "="; 
@p := @line*[28] ‘+’ real*to*ascii (think.std, line*[28]); 

p ‘:="’ " sec er 


write“it; 


blank (line*™, 70); line*™[17] ‘’:=’ "Minimum"; line*[26] := "="; 
real“temp := if think.count > Od then 
$fit (think.minimum) / 1e3 else Oe0; 
@p := @line*[28] ‘+’ real*to*ascii (real*temp, line*[28]); 
‘:=' " sec "s 
write*it; 


blank (line*, 70); line*[{17] ‘:=’ "Maximum"; line*[26] := "="; 
real*temp := if think.count > Od then 
$flt (think.maximum) / 1e3 else Oe0; 
@p := @line”(28] ‘+’ real“to°“ascii (real“temp, line*~(28]); 
p ’:=’ “ sec We 
write“it; 
blank (line*, 70); line*{17] ‘:=’ “Count"; line*[26] := "="; 


err := dascii (think.count, -10, line*[35]); 
line*(36] ‘:=' " # (" -> @p; 
real“temp := 0.0e0; 
if rt.count > 1d then 
real”temp := ($flt (think.count) / $filt (rt.count)) * 1.0¢e2; 
@p := @p ‘+’ real“to”ascii (real“temp, p, err); 


22:05:48 


PAGE 42 


1963. 
1964, 
1965. 
1966. 
1967. 
1968. 
1969. 
1970. 
1971. 
1972. 
1973. 
1974. 
1975. 
1976. 
1977. 
1978. 
1979. 
1980. 
1981. 
1982. 
1983. 
1984. 
1985. 
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012417 
012417 
012417 
012436 
012441 
012455 
012465 
012516 
012516 
012541 
012556 
012566 
012617 
012617 
012642 
012642 
012660 
012673 
012703 
012734 
012734 
012757 
012757 
012776 
013011 
013021 
013052 
013052 
013077 
013107 
013121 
013123 
013130 
013142 
013154 
013164 
013215 
013215 
013215 
013215 
013273 
013273 
013273 
013273 
013273 
013277 
013300 
613360 
013300 
013300 
013300 
013304 
013305 
013305 
013305 
013305 
013305 


re ee ns ee ee er re ae ee re ee ree reer roe renes rene ror es rome oe rms a avn ene ee re ee ee ee ee ry 


Oo ee ee ee ee ee ee 


_ tt QI NN NNN NN NNN NM NN DN NNYNNNNNNNNNNNNNNNNN PD 


! DELAY Statistics ! 


blank (line*, 70); line* ‘:=’ "“ Tx Delay Average"; 
line*[26] := "="; 

@p := @line*[28] ‘+’ real“to*“ascii (dilay.avg, line*[28]); 
p re — ad a sec ae 


write“it; 


blank (line*, 70); line*[17] ‘:=’ "Std Dev"; line”[26] := "="; 
@p := @line*[28] ‘+’ real*to*ascii (dilay.std, line”[28]); 

p ‘’:5’ " sec m3 

write it; 

blank (line*, 70); line*[17] ‘:=’ "Minimum"; line~[26] := "="; 
real*temp := if dilay.count > Od then 


$fit (dilay.minimum) / 1te3 else O0e0; 


@p := @line*~[28] ‘+’ real*to“ascii (real~temp, line”[28]); 
p ’:=’ “ sec eas 
write’ it; 
blank (line*~, 70); ltine*{17] ‘’:=’ "Maximum"; line~[26] := "="; 
real*“temp := if dilay.count > Od then 
$flt (dilay.maximum) / 1le3 else OeQ; 
@p := @line*[28] ‘+’ real*to°“ascii (real“temp, line”[28]); 
p ’:=’ " sec ws 


write’ it; 


blank (line*, 70); line7~{17] ‘:=’ “Count”; line“[26] := “="; 


err := dascii (dilay.count, -10, line~[35]); 
line’ [36] ‘:=’ " # (" -> @p; 
real~temp := 0.0e0; 
if rt.count > Id then 
real*temp := ($flt (dilay.count) / $flt (rt.count)) * 1.0e2; 
@p := @p ‘+’ real“to“ascii (real“temp, p, err); 
p irs’ "%)"; 
write“it; 


end; !arrival”“type <> maximum! 


blank*line; hyphen” line; 


if startup*parameter [param*rtplot].setup then 
call rtplot; 


f—--~--~---~---------- ! 2.03 
! AT Plot ! 2.03 
| -~--~~—------~--------- ! 2.03 
if startup*parameter [param“atplot].setup then 2.03 

call atplot; 2.03 


fee ee ee ee ee ee 1 
if startup*parameter [param*rtdump].setup then 
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2020. ‘(013305 1 1 ! call rtdump; 
2021. 013305 1 1 
2022. 013305 1 1 end; !proc REPORT! 

ATPLOT Subproc 
BLANK Define 
BLANK“LINE Define 
DATE~ TIME Variable 
EFORMAT Variable 
ERR Variable 
HEADER Variable 
HYPHEN” LINE Define 
IFORMAT Variable 
JDAY Variable 
LCT Variable 
LINE Variable 
LINELEN Variable 
LINE* Variable 
NETNAME Variable 
NUM*STR Variable 
NUM*WRD Variable 
P Variable 
PLOT*LINE Subproc 
PLOT“LINE7A Subproc 
PROB Variable 
REAL”~ TEMP Variable 
REAL“TO“ASCII Subproc 
RTPLOT Subproc 
SMEAR Define 
T1 Variable 
T2 Variable 
TERMS Variable 
TPUT*PER* TERMINAL Variable 
WRITE*IT Define 


proc REPORT 


INT 
STRING 
INT 
STRING 


STRING 
INT (32) 
FIXED (0) 


INT 
STRING 


REAL (32) 
REAL (32) 
INT 


REAL (32) 
REAL (32) 
REAL (32) 
REAL (32) 


%002277 

SMEAR ( $1, “ ", $2 
BEGIN LINE* := " "; 
Indirect L+013 
Indirect L+015 
Direct L+014 
Direct P+000 
BEGIN SMEAR (LINE%~, "- 
Indirect L+016 
Direct L+011 
Direct L+005 
Indirect L+003 
Direct L+002 
Indirect L+004 
Indirect L+023 
Indirect L+017 
Indirect L+020 
Indirect L+001 
%000170 

%002021 

Direct L+034 
Direct L+021 
%000043 

%000403 

BEGIN $1 := $2; $ 
Direct L+026 
Direct L+030 
Direct L+032 
Direct L+024 


BEGIN LINE*~ [77] “=: 
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) 

CALL WRITE*“FILE (OUT, LINE, 1); END 
",70); WRITE“IT; END 

1[1] ‘:=’ $1 FOR ( $3-1); END 


‘ LINE~ [69] FOR 70; LINE” ’:=’ " 


hh 


$TURF .NVCTXGEN.TXREP23S [1] 


000000 
000000 
000000 
000000 
000000 
000000 
000037 
000041 
000042 
000056 
000061 
000121 
000122 
000125 
000154 
000155 
000160 
000220 
000221 
000224 
000265 
000266 
000271 
000334 
000335 
000335 
000335 
000335 
000335 
000341 
000367 
000413 
000435 
000457 
000501 
000523 
000545 
000567 
000621 
000621 
000643 
000643 
000650 


7NOWARN 


proc print“help: 


proc PRINT HELP 


string .banner [0:59]; 


string hi = ‘P’ := [60*["\"],0,%377], 
h2 = 'P’ := [" ",0,%377], 
h3 = ‘Pp: := [" ae 
"TXREP /out <report>/ ",0,%377], 
h4 = ‘ps := [* uo 


0, 


0, 


Oo, 


Oo, 


0, 


{TXLOG <filename>, ] 


-- Capture file created by TXGEN", 


times", 


%377)], 
hS5 = ‘PP’ ;= [" a 
[TITLE <24-char-string>,] -- Report title", 
%377], 
h6 = ’P’ ;:= [" aa 
[WINDOW hi1:m1:s1/h2:m2:s2,] -- Delimits <txlog> for analysis", 
%377), 
h7 = ’P’ := [" aie 
[RTPLOT, ] -- Generate plot of response times", 
%377), 
h8 = 'P* y= [* ~ 
[ATPLOT] -- Generate plot of inter-arrival 
%377]; 
hQ = ‘PP’ ;= [" er 
“ [RTDUMP ] -- Generate table of response times”, 
0,%377]; 
banner ‘’:=’ "“TXREP - ET1 Performance Report (" & 


txrep°vs & ") 
call fprint (hometerm.filenum, h1, @banner); 
call fprint (hometerm.filenum, h2); 
call fprint (hometerm.filenum, h3); 
call fprint (hometerm.filenum, h4); 
call fprint (hometerm.filenum, h5); 
call fprint (hometerm.filenum, h6); 
call fprint (hometerm.filenum, h7); 
call fprint (hometerm.filenum, h8); 
call fprint (hometerm.filenum, h9); 
call fprint (hometerm.filenum, h2); 


call stop; 


end; !proc print“help! 


Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 


STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 
STRING 


~ PAM"; 


Indirect 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 


L+001 
P+000 
P+000 
P+000 
P+000 
P+000 
P+000 
P+000 
P+000 


2 


NNN 


03 
2. 


03 


01 
01 
01 
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2068. 000000 0 O proc print“times (ts*start, ts*stop); 
2069. 000000 1 O | eae ne ee 
2070. 000000 1 O fixed ts“start, ts*stop; 
2071. 000000 1 O begin 
2072. ooo0o0oo 1 1 string msg1 = ‘P’ ;:= 
2073. 000000 1 #1 [" Start Time: ##:##4:## "," Stop Time: ##:44:## ", O, %377]; 
2074. 000033 1 1 string msg2 = ‘P’ := 
2075. 000033 1 1 ["“Elapsed Time: ##:4#4#:#4#4.###"," Cpu Time: ##:#4:4#.###4", 0, %377]; 
2076. oooo66 1 1 
2077. 000066 1 #1 fixed elapsed“time, Ict; 
2078. Q00066 1 1 int(32) jd; 
2079. OOCO6Ss 1 1 int h1, mi, s1, msi; 
2080. OOoood6E 1 1 int -t [0:7]; 
2081. QoO0O066 1 1 
2082. oooo066 1 1 lct := converttimestamp (ts*start); 
2083. 000105 1 #1 jd = interprettimestamp (lct, t); 
2084. 000113 1 1 hi = t (3); m1 := t [4]; s1 := t [5]; 
2085. 000124 1 1 Ict := converttimestamp (ts*stop ); 
2086. 000137 1 #1 jd = interprettimestamp (Ict, t); 
2087. 000145 1 1 call fprint (hometerm.filenum, msg1, h1, m1, s1, t{3], t[4], t{5]); 
2088. 000176 1 1 
2089. 000176 1 1 elapsed*time := ts*stop - ts“start; 
2090. 000205 1 1 call convertprocesstime (elapsed“time, t, t{1], t{2], t{3], t[4]); 
2091. 000226 1 1 hi := t [0]; mi := t [1]; s1 := t [2]; msi := t [3]; 
2092. 000241 1 1 call convertprocesstime (myprocesstime, t, t[1], t{2], t{3], t[4]); 
2093. 000263 1 1 call fprint (hometerm.filenum,msg2,n1,m1,si,msi1,t,t[1],t{2],t[3]); 
2094. 000316 1 1 
2095. 000316 1 1 end; !proc print*times! 
ELAPSED“ TIME Variable FIXED (0) Direct L+001 
H1. Variable INT Direct L+013 
JD Variable INT (32) Direct L+011 
LCT Variable FIXED (0) Direct L+005 
M1 Variable INT Direct L+014 
MS 1 Variable INT Direct L+016 
MSG1 Variable STRING Direct P+000 
MSG2 Variable STRING Direct P+000 
$1 Variable INT Direct L+015 
T Variable INT Indirect L+017 
TS*START Variable FIXED (0) Direct L-012 
TS” STOP Variable FIXED (0) Direct L-O06 
2096. 000000 0 O ?WARN 
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2098. 900000 0 9 proc TXREP main; 

2099. ooo000 1 Oa | eee nn re 

2100. 000000 1 Oa begin 

2101. 000000 1 1 fixed ts*start; 

2102. o000c0 1 1 

2103. 000000 1 #1 ts°start := juliantimestamp; 
2104. 000011 1 #1 call txrep” init; 

2105. 000012 1 1 call scan*file; 

2106. 000013 1 #1 call eti*stats; 

2107. 000014 1 1 call report; 

2108. 000015 1 1 call close“file (out); 

2109. 000023 1 1 call print*times (ts*start, juliantimestamp) ; 
2110. 000036 1 1 end; 


TS” START Variable FIXED (0) Direct L+001 


ih 
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AT“ STATS 

1 AVG 

1 STD 

1 MIN 

1 MAX 
AWAITIO*~ DONE 
CALC*WINDOW*TS 
CELLCOUNT 
CFCB 
CLOSE 
CLOSE“FILE 
COMPUTETIMESTAMP 
CONSTANT 
CONST~ 
CONTROL” ATTEMPT 
CONVERTPROCESSTIME 
CONVERTTIMESTAMP 
DASCII 


1 THRUPUT 

1 RT“AVG 

1 RT*STD 

1 RT“MIN 

1 RT~MAX 

1 RT“DIST[O:9] 
1 RT°PCT[O:9] 

ET1°STATS 

EXP~ 

FALSE 

FILEINFO 

FIRST*BLOCK~ READ 

FNAMECOLLAPSE 

FNAMEEXPAND 

FORMATCONVERT 

FORMATDATA 

FPRINT 

GUARDIAN“ DEVSUBTYPE 

GUARDIAN“ DEVTYPE 


- GUARDIAN“ TYPECARD 


GUARDIAN” TYPEDISC 
GUARDIAN* TYPEPRINTER 
GUARDIAN~ TYPEPROCESS 
GUARDIAN” TYPERECEIVE 
GUARDIAN” TYPETAPE 
GUARDIAN” TYPETERM 
GUARDIAN” TYPETTMP 
GUARDIAN” TYPEX25PTP 
HOMETERM 

IN 
INTERPRETTIMESTAMP 
IODEV* FAILURE 


$TURF .NVCTXGEN.TXREP23S [1] 


Proc 
Variable,4012 
Variable,20 


14,4 
Literal 
Proc 
Literal 
Variable 
Proc 
Proc 
Proc 
Literal 
Literal 
Literal 
Proc 
Proc 
Proc 
Proc 
Variable,34 
Define 
Variable,144 

0,4 
4,4 

10,4 

14,4 

20,4 

24,4 

74,4 
Proc 
Proc 
Literal 
Proc 
Variable 
Proc 
Proc 
Proc 
Proc 
Proc 
Define 
Define 
Literal 
Literal 
Literal 
Literal 
Literal 
Literal 
Literal 
Literal 
Literal 
Variable,40 
Variable,40 
Proc 
Proc 


STRUCT 
STRUCT 
REAL (32) 
REAL (32) 
REAL (32) 
REAL (32) 
INT 


INT 
INT 


INT 
FIXED (0) 
INT 
INT 
INT 


FIXED (0) 
INT 


STRUCT 


STRUCT 

REAL (32) 
REAL (32) 
REAL (32) 
REAL (32) 
REAL (32) 
REAL (32) 
REAL (32) 


REAL (32) 


INT 
STRUCT 
STRUCT 
INT (32) 


GLOBAL MAP 


External 
Indirect 
Indirect 
Direct 
Direct 
Direct 
Direct 
%000005 
%000067 
%001750 
Indirect 
External 
External 
External 
%000001 
%000001 
%000004 
External 
External 
%000006 
External 
Indirect 


17FEBB7 


#GLOBAL+006 
#GLOBAL+007 


#GLOBAL+000 


#GLOBAL+011 


IF <> THEN CALL DEBUG 


Indirect 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
%000000 
%000000 
%000000 
External 
Direct 
External 
External 
External 
External 
%000000 
<10: 15> 
<4:9> 
%000010 
%*000003 
%O000005 
%000000 
%000002 
%000004 
%000006 
%000025 
%000011 
Indirect 
Indirect 
External 
%000061 


#GLOBAL+012 


#GLOBAL+024 


#GLOBAL+003 
#GLOBAL+004 
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IODEV“ INIT 
IODEV™~ 

1 NAME*~ [0:23] 

1 FILENAME 

1 FILENUM 

1 TYPE 

1 ERROR 

1 BUFADDR 
JULIANTIMESTAMP 
MAXIMUM 
MAX* KEYWORD 
MYPROCESSTIME 
MYSYSTEMNUMBER 
MYTERM 
NAME ~* 
NIL 
NONE*~ 
NUMIN 
NUMOUT 
OPEN 
OPEN” ATTEMPT 
OPEN” EXCLUSIVE 
OPEN“FILE 
OPEN” GETMSG 
OPEN” NOWAILT 
OPEN* PROTECTED 
OPEN” READONLY 
OPEN” READWRITE 
OPEN” SHARED 
OPEN“ WRITEONLY 
OUT 
OUT“ BUFFER 
p 


PARAM” ATPLOT 
PARAM” CCELL 
PARAM” CCELLA 
PARAM” DEFAULT 
PARAM” KEYWORDS 
PARAM” PCELL 
PARAM” PCELLA 
PARAM” RTDUMP 
PARAM” RTPLOT 
PARAM” TERMS 
PARAM” TITLE 
PARAM” TXLOG 
PARAM” WINDOW 
PRINT”HELP 
PRINT~ TIMES 
RANDOM 

READ 

READ“ ATTEMPT 


RT* TABLE~* 
1 NAME* [0:23] 
1 NAME 


Proc 
Variable 
0,1 
0,2 
30,2 
32,2 
34,2 
36,2 
Proc 
Literal 
Literal 
Proc 
Proc 
Proc 
Literal 
Literal 
Literal 
Proc 
Proc 
Proc 
Literal 
Literal 
Proc 
Literal 
Literal 
Literal 
Literal 
Litera] 
Literal 
Literal 
Variable 
Variable 
Variable 
Literal 
Literal 
Literal 
Literal 
Variable 
Literal 
Literal 
Literal 
Literal 
Literal 
Literal 
Literal 
Literal 
Proc 
Proc 
Literal 
Proc 
Literal 
Proc 
Proc 
Variable,4012 
Variable 
0,1 
0,2 


TEMPLATE ,40 
STRING 


INT 
FIXED (0) 
INT 
INT 
FIXED (0) 
INT 


INT 
INT 


INT 


INT 


STRUCT 
TEMPLATE ,4012 
STRING 

INT 


GLOBAL MAP 


%000051 


Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
External 
%000000 
%000013 
External 
External 
External 
%000000 
%000000 
%000002 
External 
External 
External 
%000000 
%000020 
External 
%040000 
%000001 
%000060 
%002000 
%000000 
%000000 
%004000 
Indirect 
Indirect 
Indirect 
%000010 
%000007 
%000012 
%000000 
Direct 
%000006 
%000011 
%000004 
%000003 
%000013 
%000002 
%000005 
%000001 
%000335 
%000066 
*%000002 
External 
%000001 
%O000065 
%004052 
Indirect 


Direct 
Direct 


#GLOBAL+001 
#GLOBAL+002 
#GLOBAL+015 


P+000 


#GLOBAL+005 
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bh 


COUNT 
MINIMUM 
MAXIMUM 
SUM 
SUM* 2 
LOBOUND 
UPBOUND 
CELLSIZE 
NUMCELL 
1 FREQLO:1000) 
SCAN“ FILE 
SETUP 
SET*“FILE 
SQRT 
STARTUP” PARAMETER 
STARTUP* PARAM* ~ 
1 NAME[O:11] 


1 
1 
1 


VALUE 
FLAGS 
S* NAME 


STOP 
STR* 
TEST 
1 TERMINALS 
1 ARRIVAL“RATE 
1 ARRIVAL“TYPE 
1 TS*WINDOW*BEGIN 
1 TS* WINDOW END 
1 LEN” WINDOW 
1 TS*FIRST“REC 
1 TS*LAST*REC 
1 LEN“ TEST 
THINK 
THROW* COUNT 
TIME” STATS*~~ 
1 COUNT 
AVG 
STD 
MINIMUM 
MAXIMUM 
SUM 
1 SUM*~2 
TRUE 
TXLOG* BUF 
TXLOG* BUFPTR 
TXLOG* BUFSIZE 
TXLOG* MAXREC 
TXLOG* REC 
TXREP 
TXREP“ INIT 
TXREP“VS 
TX* DEF 
1 TERM* COUNT 
1 TERM* INDEX 
1 ARRIVAL“RATE 
1 
1 


SEND*~ TIMESTAMP 


NEXT “ARRIVAL” TIME 


30,4 
34,4 
40,4 
44,4 
50,4 
54,4 
60,4 
64,2 
66,2 
70,2 
Proc 
Define 
Proc 
Proc 
Variable,32 
Variable 
0,2 
0,2 
30,2 
0,1 
Proc 
Literal 
Variable,56 
0,2 
2,2 
4,2 
6,10 
16,10 
26,4 
32,10 
42,10 
52,4 
Variable,34 
Variable 
Variable 
0,4 
4,4 
10,4 
14,4 
20,4 
24,4 
30,4 
Literal 
Variable 
Variable 
Literal 
Variable 
Variable 
Proc 
Proc 
Define 
Variable 
0,2 
2,2 
4,2 
6,10 
16,4 


INT (32) 
INT (32) 
INT (32) 
REAL (32) 
REAL (32) 
INT (32) 
INT (32) 
INT 

INT 

INT 


INT 

REAL (32) 
STRUCT 
TEMPLATE 
INT 


FIXED (0) 
FIXED (0) 
INT (32) 
FIXED (0) 
FIXED (0) 
INT (32) 
STRUCT 
INT (32) 


TEMPLATE ,34 


INT (32) 
REAL (32) 
REAL (32) 
INT (32) 
INT (32) 
REAL (32) 
REAL (32) 


INT 


FIXED (0) 
INT (32) 


Mew HIME 


Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
%000000 
FLAGS. <0O> 
External 
%000000 
Indirect 


Direct 
Direct 
Direct 
Direct 
External 
%000003 
Indirect 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Indirect 
Direct 


Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
Direct 
%177777 
Indirect 
Indirect 
%0 10000 
Direct 
Direct 
%000000 
%000556 
{"“vs 2.03"] 


Direct 
Direct 
Direct 
Direct 
Direct 


#GLOBAL+014 


#GLOBAL+013 


#GLOBAL+010 
#GLOBAL+016 


#GLOBAL+020 
#GLOBAL+021 


#GLOBAL+022 
#GLOBAL+023 


aft Lwoe 


“42e2i.uu-.790 
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1 RESPONSE“ TIME 
1 FILLER 
WRITE 
WRITE“ ATTEMPT 
WRITE“FILE 
WR“ ATTEMPT 


22.4 

26,1 
Proc 
Literal 
Proc 
Literal 


INT (32) 


INT 
INT 
INT 


GLOBAL MAP 


Direct 


External 
%000002 
External 
%000003 


17FEB87 
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ENTRY POINT MAP BY NAME 


SP 


PEP 


011 
003 
014 
005 
002 
006 
007 
016 
017 
012 
015 
013 
004 
020 
010 


BASE 


002761 
000400 
011066 
000620 
000116 
000752 
001334 
025644 
026547 
003715 
012077 
004027 
000534 
027067 
001557 


LIMIT 


003714 
000533 
012076 
000751 
000377 
001333 
001556 
026546 
027066 
004026 
025643 
011065 
000617 
027127 
002760 


ENTRY 


003050 
000406 
011066 
000620 
000116 
001033 
001405 
026201 
026635 
004002 
016151 
004027 
000534 
027067 
002335 


ATTRS 


<<< 


NAME 


CALC“WINDOW"TS 
DASCII 
ET1“STATS 
EXP~ 

FPRINT 

IODEV” FAILURE 
IODEV“ INIT 
PRINT*“HELP 
PRINT“ TIMES 
READ~ REC 
REPORT 
SCAN*FILE 
SQRT 

TXREP 
TXREP“*INIT 


LOAD MAPS 


DATE 


17FEB87 
17FEB87 
17FEB87 
17FEB87 
17FEB87 
17FEB87 
17FEB87 
17FEB87 
17FEB87 
17FEB87 
17FEB87 
17FEB87 
17FEB87 
17FEB87 
17FEB87 


LANGUAGE SOURCE FILE 


$TURF. 
STURF. 
$TURF. 
STURF. 
$TURF. 


$TURF 


$TURF. 
$TURF. 
$TURF. 
$TURF. 
$STURF. 
$TURF. 
$TURF. 
$TURF. 
$TURF. 


NVCTXGEN. 
NVCTXGEN. 
NVCTXGEN. 
NVCTXGEN. 
NVCTXGEN. 
-NVCTXGEN. 
NVCTXGEN. 
NVCTXGEN. 
. TXREP23S 
NVCTXGEN. 
NVCTXGEN. 
NVCTXGEN. 
NVCTXGEN. 
NVCTXGEN. 
NVCTXGEN. 


NVCTXGEN 


17FEBB7 


TXREP23S 
TXREP23S 
TXREP23S 
TXREP23S 
TXREP23S 
TXREP23S 
TXREP23S 
TXREP23S 


TXREP23S 
TXREP23S 
TXREP23S 
TXREP23S 
TXREP23S 
TXREP23S 
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READ-ONLY DATA BLOCK MAP BY NAME 
SP BASE LIMIT TYPE MODE NAME DATE TIME LANGUAGE SOURCE FILE 


00 c000021 000115 COMMON STRING PARAM*KEYWORDS 17FEB87 22:05 TAL : $TURF .NVCTXGEN. TXREP23S 


5S 
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DATA BLOCK MAP BY NAME 
BASE LIMIT TYPE 


000000 000024 COMMON 
000025 014677 COMMON 


MODE NAME 


WORD #GLOBAL 
WORD -#GLOBAL 


LOAD MAPS 


DATE 


17FEB87 
17FEB87 


TIME LANGUAGE 


22:05 TAL 
22:05 TAL 


17FEB87 


SOURCE FILE 


$TURF .NVCTXGEN. TXREP23S 
$STURF .NVCTXGEN. TXREP23S 
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BINDER - OBJECT FILE BINDER - T9621COO - (15JUL87) 


Object file name 


is STURF .NVCTXGEN.txrep23 


Object file timestamp is 17FEB87 22:05:48 


Number of Binder 
Number of Binder 


errors = 0 
warnings = O 


Primary data = 21 words 


Secondary data = 
Code area size = 


6571 words 
12 pages 


Resident code size = O pages 


Data area size = 


8 pages 


Extended data area size = 0 pages 
Top of stack = 6592 words 


BINDER AND COMPILER STATISTICS 


SYSTEM \FOXII 


Number of code segments = 1 segment 

The object file will run on a TNS/II, but may not run on a TNS 
Number of compiler errors = QO 

Number of compiler warnings = 25 


Maximum symbol table space used was = 40938 bytes 


Number of source 
Compile cpu time 


lines = 4467 
= 00:00:32 


Total Elapsed time = 00:01:16 


R 17FEB87 
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ET1 Script Generator 


Startup 

1020 rem = = 

1030 rem = ET1 Script Generator 7 

1040 rem = = 

1050 rem Sea BtBBaSSaerttaaSe Se ae at SSBB SSS SB HSB SSS TS Se ST VV SE Ve Sal SS Sl TS SE SE ET TS SE Tl I TET = 

1060 on error goto 2540 

1070 rem SSS S55 = 5555S SSS SS =2=2 SSS 52-55 5-5 ==> S25 555252255555 = 

1080 rem = Print Blurb = 

1090 rem eS ee SSS SSeS SS SBS SS SSS eS SSS SS SS SS SS SS Se aw eee ee SSS SS Se SSS eS = 

1100 print “This program generates ET1 according to the standard "; & 
"definition." 

1110 print " " 

1120 print “A random teller, within the scripts teller range is picked." 

1130 print “The branch the teller is connected to is determined, this is" 

1140 print “done by dividing by 10. “ 

1150 print " . 

1160 print "In 85% of the cases, a random account is picked within "; & 
"the branches" 

1170 print “account range of 10,000. In the other 15% of the cases "; & 
“a candom" 

1180 print “account is picked allowing any branch but the ‘nome’ branch." 

1190 print " a 

1200 print "The statistics at the end show the truly generated "; & 
"distribution." 

1210 print " i 


1220 rem tgal command & 
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1230 rem 


iz40 rem 
1250 rem 


1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 


1340 
1350 
1360 
1370 
1380 
1390 
1400 


1410 rem 


ee ee en ae ee ae a a a a a i a ie a ee we a oe ee = 


input “How many tellers in total set? 

input “How many transactions for this node? 
lowtell = O 

hightell = 0 

input “Lowest valid teller number for this node? 
input “Highest valid teller number for this node? 
input "Number of partitions on this node 

input “Number of script files for this node 
print “Ramping information: " 

input "Projected TPS for this system: 

input "Desired rampup time (minutes): 

rampkt = int(ramp * 60 *tps) 

input “Ramp identifier: 

input “Local identifier: 

input “Remote identifier: 

tgal command & 


ET1 Script Generator 
Get Information 


;s fullsize 
» txnums 


". lowtell 
» hightet! 
" parts 
» scripts 


ot) . tps 
, ramp 
» rampid 


"“, locid 
, remid 
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1420 
1430 
1440 
1450 
1460 
1470 
1480 


1490 


1500 


1510 


1520 


rem 
rem 
rem 


rem 


fem 


ET1 


Script Generator 
Open Script Files 


sc$ = 
for x 


print 


open 


“SCRIPT" 


= 1 to scripts 
name$ = sc$tstring$(1, (x+48)) 


"opening' 


organization 


acces 
prime 
secex 


open 

organ 
acces 
prime 
secex 


next 


tyal 


s 
xtent 
tent 


ization 
s 

xtent 
tent 


x 


command & 


' name$ 


name$ for output as #x, 
edit, 

append, 
(txnums/48/16/scripts), 
(txnums/48/16/scripts) 


name$ for output as #x, 
edit, 

append, 
(txnums/48/16/scripts), 
(50) 


2° QO Qo Po 


QO QO Re Qo 
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ET1 Script Generator 
Initialize Variables 


1530 rem (fe  nee—  e d 
1540 rem = Perform Initial Calculations = 
1550 rem oe ee ll lll eee 
1560 tnums = hightell-lowtell+1 

1570 local = 0 

1580 remote = 0 

1590 homebranch = 0 

1600 samedisc = 0 

1610 psize = tnums / parts 

1620 print “tellers in script:"“,tnums,"“partition size:",psize 

1630 rem tgal command & 


Page 4 


rem 
rem 
rem 


rem 
rem 
rem 


rem 
rem 
rem 


rem 
rem 
rem 


rem 
rem 
rem 


rem 
rem 
rem 


rem 
rem 
rem 
rem 


rem 


rem 
rem 
rem 


rem 


rem 
rem 


rem 


= Ge 
for x 
J} Pi 


telle 


| Fi 


if rn 


| Ge 


} Pi 


acc = 


ET1 Script Generator 
Generate Scripts 


ck a random terminal from range | 


r = int (rnd*tnums)+lowtell 


nd branch #, add trailing zero for record number 


15% of all cases generate a non home transaction 


d*100000 >= 85000 then goto 2100 


nerate a “Home Branch Transaction" | 


ck an account out of 10,000 at this branch | 


int (rnd*10000)+ bra*¥1000 


| Se 
| In 


if ra 
the 
els 


endif 


t credit value to $1, indicating transaction at home branch | 


sert correct credit (ramp or local) 
mpkt <> 0 & 
n & 

credit = rampid ~  & 

rampkt = rampkt - 1 & 

e & 

credit = locid 
| records on same node as terminal | 
= local +1 
1 records (except history) on same disc volume | 
isc = samedisc +1 


samed 


tgal 


command & 
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ET1 Script Generator 
Generate Scripts 


2020 rem tr tt mm mmr tt rene 
2030 rem {| ail records same branch (should be 85%) j 
2040 POM tr ttt rt rere 
2050 homebranch = homebranch +1 
2060 goto 2310 
2070 reM wer mmr rr rrr rt treo 
2080 rem | generate a “Non Home Transaction" | 
2090 POM Rr rrr mr rr rr rts 
2100 acc = int(rnd*(fullsize*1000)) 
2110 if int(acc/10000) = (bra/10) then goto 2100 
2120 POM mmm mm tr rrr rset 
2130 rem | set credit value to 000 indicating transaction at home branch | 
2140: Fem (SS sseresSSS2 S$ SSeS Seo Se $5585 HSS SS SS ae SSS SSS tee ee See 
21850 rem = wrt ttt tester reer 
2160 rem | insert correct credit (ramp or remote) | 
2170 POM sett ttt tem tt rr rt mn eterno 
2180 if rampkt <> Q & 
then & 
credit = rampid & 
rampkt = rampkt -1 & 
else & 
credit = remid 
2190 rem endif 
2200.-Ceny SSS Seco sess Se eS Se SSeS ee Resa SSeS 
2210 rem |} all records on same node as terminal ?_ | 
2270 COM PS re rte SS rcee te Sees sess Sees SSeS 
2230 if int(acc/1000) <= hightell and int(acc/1000) >= lowtell & 
then local = local +1 & 
else remote = remote +1 
2240 POM mmm rr rrr rece 
2250 rem | all records (except history) on same disc volume 7? | 
2260 fTeM seer eS ese Ree eee ee a ee eee ee ese eee se oes estes 
2270 pnumt = int((teller-1)/psize) 
2280 pnuma = int((acc-1)/(psize*1000)) 
2290 if pnuma = pnumt then samedisc = samedisc +1 
2300 rem rrr rrr rrr rrr rrr rrr 
2310 rem | format data to have leading zeroes. | 
2320 Fem “SS rss rete ree See teresa Se rae ses Seess 
2330 acc = acc * Q.000000000001 
2340 teller = teller * Q.000000000001 
2350 bra = bra * 0.000000000001 
2360 credit = credit * 6.00060000060061 


2370 rem tgal command & 
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2380 
2390 
2400 
2410 


2420 


2430 


rem 
rem 
rem 


rem 


#(1+mod(x,scripts)) 
" PERERA R EAE”, 


acc,teller,bra,credit 


next 


tgal 


x 


command & 


ET 1 


Script Generator 
Generate Scripts 


Page 


ET1 Script Generator 
Report Statistics 


I ee 


print 1 oie oe oe ie ok ae ok oe ok a a eK KK KK EK KE KK KEK KOK KE KEK KE 


print "Home Branch TX :", homebranch 
print “Remote TX 2", remote 
print “Same Partition TX >", Samedisc 


homebranch/ (remote+local)*100 
remote/ (remote+local)*100 


print “Home Branch Frequency: 
print "Remote Frequency ae 
if err = 0 goto 2550 

print "Error: “;err 

end 
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The following is a fragment of one of the driver input scripts. The 
input consists of the account number, branch number, teller number and 
delta (debit or credit). For this benchmark the delta is always .01$ 
(if the transaction is local or 1000$ if the transaction is remote. 
The auditor will specify the exact amounts at the time of the audit. 
Notice that the teller number is simply branch number plus the teller 
number within the branch. 


ACCOUNT TELLER BRANCH DELTA 
.000005558826.000000005553.000000005550.000000000001 
.000000394111.000000000390.000000000390.000000000001 
-000000256934.000000000254.000000000250.000000000001 
.000022222747.000000005943.000000005940 .000000100000 
.000005450198.000000005456.000000005450 .000000000001 
-000005993139.000000005994.000000005990.000000000001 
-000001958619.000000001957.000000001950.000000000001 
.000000547888.000000000545 .000000000540 .000000000001 
.000002552195.000000002559.000000002550.000000000001 
.000002392792.000000002397.000000002390.000000000001 
.000000860928.000000000860.000000000860.000000000001 
.000005147853.000000005149.000000005140.000000000001 
.000012526702.000000003262.000000003260 .000000100000 
-000002403071.000000002400.000000002400.000000000001 
.000003363863.000000003363.000000003360.000000000001 
.000000558444.000000000551.000000000550.000000000001 
.000001168065.000000001165.000000001160 .000000000001 
.000006003974.000000006004.000000006000.000000000001 
-000003067422.000000003066.000000003060.000000000001 
.000005959660.000000005955.000000005950 .000000000001 
.000002661937.000000002668 .000000002660 .000000000001 
.000000405502.000000000406.000000000400.000000000001 
.000006371607.000000006370.000000006370.000000000001 
.000003903411.000000002158.000000002150.000000100000 
-000001376434.000000001371.000000001370.000000000001 


and ‘MUCH MOreké est ites eke eee ee 


* ET1 Report (RTE System) - Performance Analysis and Measurement * 


----- PARAMETERS -------~--------------------------------------------- 


Test Title 
Test Date 
Test Length 
Window Length 
Tx Log File 


Test 200; 220 TPS; SQL 
87-02-15 

02:19:38 - 02:44:59 (1521 sec) 
02:32:00 - 02:38:00 (360 sec) 
\DRIVER.$DMO1.TXGEN.TXLOGSUM 


Terminals/X25 Line 

Tx Arrival Process 

Tx Arrival Rate/X25 Line 
Tx Arrival Rate/Terminal 
Tx Inter-Arrival Time 


80 # 
RANDOM 
7.500 tx/sec 
0.094 tx/sec 
10.667 sec 


~---- MEASUREMENT RESULTS (vs 2.02) --------------------------------- 


Tx Throughput 218.597 tx/sec 


Tx Response Time Average = 1.695 sec 
Std Dev = 0.721 sec 
Minimum = 0.464 sec 
Maximum = 48.168 sec 
Count = 78695 # 
Tx Response Time 10% = 1.050 sec ( 12.2%) 
20% = 1.200 sec ( 23.3%) 
30% = 1.300 sec ( 31.3%) 
40% = 1.450 sec ( 43.4%) 
50% = 1.550 sec € 50.8%) 
60% = 1.700 sec ( 60.4%) 
70% = 1.900 sec ( 70.2%) 
80% = 2.200 sec ( 81.0%) 
90% = 2.600 sec ( 90.1%) 
95% = 3.000 sec ( 95.3%) 
Tx Think Average = 10.659 sec 
Std Dev = 10.700 sec 
Minimum = 0.001 sec 
Maximum = 121.863 sec 
Count = 67170 # ( 85.4%) 
Tx Delay Average = 0.994 sec 
Std Dev = 0.834 sec 
Minimum = 0.000 sec 
Maximum = 39.744 sec 
Count = 11525 # ( 14.6%) 


* ET1 Response Time Distribution * 


Mean Std Min Max Count Thruput 
1.695 s 0.721 s 0.464 s 48.168 s 78695 218.597 tx/s 
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PAGE 1 $BASE.GRAYTGUN. SCOBTGUN TANDEM / SCREEN COBOL-X 


PATHWAY SCREEN COBOL - T9153C00 - (15JUL87) SOURCE LANGUAGE: SCOBOL TARGET MACHINE: TCP/INTERP 
COMPILED: 16 FEB 87 16:42:52 OPTIONS: ON - (LIST,WARN) OFF - (MAP,SYMBOLS, CROSSREF) 

1 ?symbols 

2 identification division. 

3 program-id. ids-drva-short. 

4 author. tiw. 

5 installation. tandem hprc. 

6 date-written. 28-jan-87. 

7 DATE-COMPILED. 87/02/16 - 16:43:04. 

9 environment division. 

10 configuration section. 

11 source-computer. t-16. 

12 object-computer. t-16, 

13 terminal is intelligent. 

14 * 

15 * this requestor is to be used in the topgun benchmark. 

16 *¥ 

17 * 

18 * terminal (x.25) requestor server 

19 ¥ 

20 * 100 bytes 9 --"77- > 

21 + 

22 * 52 bytes ----~- > 

23 * 

24 * f= = fesretrrrrrrrFrr2222 222 2 = = = (no error) = = = = 

25 * 

26 - functioncode := 0 

27 * <SSs5= 100 bytes 

28 * 

29 * <-S=<> 200 bytes 

30 * 

31 *¥ sere seeezezeszeszsseeeer2222 2 2 2 = (no error) = === 

32 * ss Stet FFF FrFtzezrsrserzrsezrerz2222 (error) == =f = 

33 * 

34 * functioncode := non-zero 

35 * 

36 * <-S-+> 100 bytes 

37 * 

38 * CSSer= 52 bytes 

39 * 

40 * sete s 22253 SF FSFSFFFFFFSE2E 2 (Orror) = === 
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$BASE .GRAYTGUN. SCOBTGUN 


41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 


/ 


data division. 
working-storage section. 


01 


01 
01 


01 


01 


01 


x25in. 
O03 tx-data 
O03 tx-misc 


x2S5o0ut—ok 
x25o0ut-error 


server-reply. 
03 sv~header 
O03 sv-data 


server-error. 


.03 sv~-header 


03 sv-data-bad 


exit-flag 
88 exit-program 
88 line-drop 


TANDEM / SCREEN 


pic 
pic 
pic 
pic 


pic 
pic 


pic 
pic 


pic 


COBOL-X 


x(52). 
x(48). 


x(200). 
x(52). 


9(4) comp. 
x€100). 


9(4) comp. 
x(100). 


9(01) comp value zero. 
value 1. 
value 2. 
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62 / 
63 ?Pheading "top level procedure div" 
64 procedure division. 
65 
66 begin-program. 
67 send message 
68 reply yields x25in 
69 on error go to reconnect-line. 
70 perform loop until 1line-drop. 
71 
72 reconnect-line. 
73 reconnect modem. 
74 move OQ to exit-flag. 
75 go to begin-program. 
76 
77 do-abort. 
78 abort-transaction. 
79 move tx-data to x25out-error. 
80 send message x2Sout-error 
81 reply yields x2S5in 
82 on error perform set-line-drop. 
83 move 1000 to termination-status. 
84 sea 
85 loop. a 
86 begin-tiansaction. : 
87 send tx-data to "eta” / 
88 reply code O yields server-reply / 
89 code 1 yields server-error / 
90 code 2 yields server-error f 
me Fe ee 
91 code 3 yields server-error [ Bt igh, } ee a ae 
92 code 4 yields server-error \ AAtpacds SG oa, 
93 code 5 yields server-error . yA Ss 
94 code 6 yields server-error y fo > ; Ce Sons) 
95 code 7 yields server-error : ae: tas dN ge 
96 code 8 yields server-error 
97 code 9 yields server-error 
98 on error perform do-abort. 
99 
100 if termination-status = 1 i 
101 end-transaction \ 
102 move sv-data to x25o0ut-ok \ 
103 send message x25o0ut-—ok 
104 reply yields x25in \ 
105 on error perform set-line-drop i 
106 else if termination-status < 10 perform do-abort. / 


se te 
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OBJECT FILE NAME IS $BASE.GRAYTGUN.POBJ 
PROGRAM NAME IS IDS-DRVA-SHORT 

PROGRAM VERSION IS 1 

NO. ERRORS=0; NO. WARNINGS=0 

CODE SIZE=258 

RUN UNIT SIZE=964 

DATA SIZE=598 

NUMBER OF SOURCE LINES READ=108 

MAXIMUM SYMBOL TABLE SIZE=2220 WORDS 
ELAPSED TIME - 0:00:29 


top 


level 


procedure div 


create file for TOPGUN benchmark. 


this is version 3 


tlw 01 - initial version: general cleanup; make db layouts 
consistent with spec. 


tiw 02 ~- change “rest" parts of records to make ten fields per 
record. 


tlw 03 - change “rest" fields to pic x 
change balance fields to pic s9(12) 
change all other fields to pic x 
change “history delta" to “history _amount" for clarity 
change first record to O (to be consistent with 
"syskey" value) 


LOG $S.#SQL.CREATE; 
?7section create catalog 


' create catalogs 

create catalog \a.$system.CATET1; 
create catalog \b.$system.CATET1; 
create catalog \c.$system.CATET1; 
create catalog \d.$system.CATET1; 
create catalog \e.$system.CATET1; 


?section create_accounts 


' create accounts file - record length 100 


12 account number 


] 

2 12 account balance 
3 12 account branch 
4 4 filler 

5 10 filler 

6 10 filler 

7 10 filler 

8 10 filler 

9 10 filler 

10 10 filler 


primary : \a.$system 


en ee ee ee ee ee ee ee 


secondaries: 


\a 
Na. 
\a 
\a. 
\a 
\a. 
\a. 


-$da02 


$da04 


.$da06 


$da08 


-$dal10 


-$db02 
-$db04 
-$db06 
-$db08 


.$system 


.$system 
.$dc02 
-$dc04 
-$dc06 
.$dcO8 


create table \a.$system.sqleti 


account number 


account_balance 


account_branch 
account_rest_1 
account_rest_ 2 
account_rest_3 
account_rest_4 
account_rest_5 
account _ rest 6 
account_rest_7 


) 


PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 


.account 


x(12), 
s9(12), 
x(12), 
x(4), 
x(10), 
x(10), 
x(10), 
x(10), 
x(10), 
x(€10) 


ORGANIZATION Key sequenced 
KEY account number 


NO AUDIT 
BUFFERED 


CATALOG \a.$system.cateti 


BLOCKSIZE 4096 
MAXEXTENTS 16 


EXTENT ( 2600,2600 ) 


PARTITION ( 


.$DA02. 
.$DA04. 
.$DA06. 
. $DA08 
.$DA10 
-$Dai2 
.$Dal4 


.$Db02 
. $0004 
.$Db06 
.$Db08 
.-$Db10 
.$Db12 
.$Db14 


-$Dc02. 
.$0c04. 
.$Dc06. 
.$Dc08. 
.$Dc10 
.$Dc12 


SQLET1. 
SQLET1. 
SQLET1. 
.SQLET1. 
-SQLET1. 
~-SQLET1. 
-SQLET1. 


- SQLET1 
. SQLET1 
. SQLET1 
~SQLET1 
- SQLET1 
-SQLET1 
.SQLET1 


SQLET1 
SQLET1 
SQLET1 
SQLET1 
.SQLET1 
-SQLET1 


ACCOUNTS 
ACCOUNTS 
ACCOUNTS 
ACCOUNTS 
ACCOUNTS 
ACCOUNTS 
ACCOUNTS 


.-Ssystem. SQLET1.ACCOUNTS 
-ACCOUNTS 
- ACCOUNTS 
. ACCOUNTS 
-ACCOUNTS 
. ACCOUNTS 
. ACCOUNTS 
. ACCOUNTS 


-$system.SQLET1.ACCOUNTS 
ACCOUNTS 
.ACCOUNTS 
. ACCOUNTS 
-ACCOUNTS 
-ACCOUNTS 
- ACCOUNTS 


CATALOG 
CATALOG 
CATALOG 
CATALOG 
CATALOG 
CATALOG 
CATALOG 


CATALOG 
CATALOG 
CATALOG 
CATALOG 
CATALOG 
CATALOG 
CATALOG 
CATALOG 


CATALOG 
CATALOG 
CATALOG 
CATALOG 
CATALOG 
CATALOG 
CATALOG 


s ( 


.$system. 
-$system. 
.$system. 
-$system. 
-$system. 
-$system. 
-$system. 


-$system. 
.$system. 
.$system., 
.Ssystem. 
-Ssystem. 
.$system. 
.$system. 
.Ssystem. 


.-Ssystem. 
-$system. 
-$system. 
.$system. 
.$system. 
-$system. 
-$system. 


catetl 
catetl 
catetl 
catetl 
catetil 
catetl 
catetl 


cateti 
catet] 
catetl 
catet] 
cateti 
catetl 
catetl 
catet] 


cateti 
catetl 
catetl 
catetl 
catetl 
catetl 
cateti 


\e.$system 


EXTENT (2600, 2600) 
EXTENT (2600 , 2600) 
EXTENT (2600, 2600) 
EXTENT(2600, 2600) 
EXTENT (2600, 2600) 
EXTENT (2600, 2600) 
EXTENT (2600, 2600) 


EXTENT (2600, 2600) 
EXTENT (2600, 2600) 
EXTENT (2600, 2600) 
EXTENT (2600, 2600) 
EXTENT (2600, 2600) 
EXTENT (2600, 2600) 
EXTENT (2600, 2600) 
EXTENT (2600, 2600) 


EXTENT (2600, 2600) 
EXTENT (2600, 2600) 
EXTENT (2600, 2600) 
EXTENT(2600, 2600) 
EXTENT (2600, 2600) 
EXTENT (2600, 2600) 
EXTENT (2600, 2600) 


START 
START 
START 
START 
START 
START 
START 


START 
START 
START 
START 
START 
START 
START 
START 


START 
START 
START 
START 
START 
START 
START 


KEY 
KEY 
KEY 
KEY 
KEY 
KEY 
KEY 


KEY 
KEY 
KEY 
KEY 
KEY 
KEY 
KEY 
KEY 


KEY 
KEY 
KEY 
KEY 
KEY 
KEY 
KEY 


“O000000800000" 
"000001600000" 
"000002400000" 
"000003200000" 
"000004000000" 
"000004800000" 
"000005600000" 


"000006400000" 
"000007200000" 
“Q00008000000" 
"000008800000" 
"000009600000" 
"000010400000" 
"000011200000" 
"9000012000000" 


"000012800000" 
"000013600000" 
"000014400000" 
"000015200000" 
"000016000000" 
"000016800000" 
"000017600000" 


wv ye ew we ew we ee we ewe we ew 


- 2. we es ew we 


\c.$Dc14.SQLET1.ACCOUNTS CATALOG \c.$system.catet1!l EXTENT(2600, 2600) 
\d.$system.SQLET1.ACCOUNTS CATALOG \d.$system.catet1 EXTENT(2600, 2600) 
\d.$0d02.SQLET1.ACCOUNTS CATALOG \d.$system.catet1 EXTENT(2600, 2600) 
\d.$0d04.SQLET1.ACCOUNTS CATALOG \d.$system.catetl EXTENT (2600, 2600) 
\d.$00d06.SQLET1.ACCOUNTS CATALOG \d.$system.catetl EXTENT(2600, 2600) 
\d.$0d08.SQLET1.ACCOUNTS CATALOG \d.$system.catet1 EXTENT(2600, 2600) 
\d.$Dd10.SQLET1.ACCOUNTS CATALOG \d.$system.catet1 EXTENT(2600, 2600) 
\d.$Dd12.SQLET1.ACCOUNTS CATALOG \d.$system.catet1 EXTENT( 2600, 2600) 
\d.$0d14.SQLET1.ACCOUNTS CATALOG \d.$system.catet1 EXTENT(2600, 2600) 
\e.$system.SQLET1.ACCOUNTS CATALOG \e.$system.catet1 EXTENT(1300, 1300) 
8 

?section create branches 

{wm ee ee ee 1 
' create branches file - record length 100 ! 


' 
' 
' 
! 
i 
1 
' 
' 
! 
' 
' 
i} 
' 
i 
: 
! 
! 
! 
' 
' 
: 
: 
: 
! 
' 


field len: function: 
1 12 branch number 
2 12 branch balance 
3 6 filler 
4 10 filler 
5 10 filler 
6 10 filler 
7 10 filler 
8 10 filler 
9 10 filler 
10 10 filler 


primary 


: \a.$system 


secondaries: 


\a.$da02 \b.$system \c 
\a.$da04 \b.$db02 \c 
\a.$da06 \b.$db04 \c 
\a.$da08 \b.$db06 \c 
\a.$da10 \b.$db08 \c 
\a.$da12 \b.$db10 \c 
\a.$da14 \b.$db12 \c 


$dcO02 \d 
$dc04 \d 
$dc06 \d 
$dcO8 \d 
$dc10 \d 
$dc12 \d 


.$system 
-$dd02 
.$0dd04 
.$dd06 


CREATE TABLE \a.$SYSTEM.SQLET1 


branch_number 
branch_balance 
breanch_rest_1 
branch_rest_2 
branch_rest_3 
branch_rest_4 
branch_rest_5 
branch _rest_6 
branch_rest_7 
branch_rest_8 


PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 


x(12), 


x(12), 
x(4), 

x(10), 
x(10), 
x(10), 
x(10), 
x(10)., 
x(10) 


$9(12), 


-BRANCHES ( 


\e.$system 


START 


START 
START 
START 
START 
START 
START 
START 
START 


START 


KEY 


KEY 
KEY 
KEY 
KEY 
KEY 
KEY 
KEY 
KEY 


KEY 


"000018400000" 


"000019200000" 
"000020000000" 
"000020800000" 
*000021600000" 
"000022400000" 
“Q00023200000" 
"000024000000" 
"000024800000" 


“000025600000" 


ee. ee we ew ee 


) 

ORGANIZATION Relative 

NO AUDIT 

BUFFERED 

CATALOG \A.$SSYSTEM.CATET I 


BLOCKSIZE 512 


MAXEXTENTS 


16 


EXTENT ( 21,2 ) 
PARTITION ( 


\a 
\a 
\a 
\a 
\a 
\a 


-$DA02. 
-$DA04. 
-$DA06. 
- $DA08. 
-$DA10. 
-$DA12. 


sqletl. 
sqleti. 
sqleti. 
sqleti. 
sqletl. 
sqletl. 


\a.$DA14.sqlieti. 


\b.$system.sqleti.branches 


\b 
\b 
\b 
\b 
\b 
\b 
\b 


\c 
\c 
\c 
\c 
\c 
\c 
\c 
\c 


\d 
\d 
\d 
\d 
\d 
\d 
\d 
\d 


\e 
3 


7?7section 


.$Db02. 
.$Db04. 
.$Db06. 
.-$Db08. 
-$Db10. 
-$Db12. 
.$0b14. 


sqieti. 
sqletil. 
sqleti. 
sqleti. 
sqleti. 
sqlieti. 
sqleti. 


branches 
branches 
branches 
branches 
branches 
branches 
branches 


branches 
branches 
branches 
branches 
branches 
branches 
branches 


-$system.sqlet1.branches 
-$Dc02.sqlet1.branches 
.-$0c04.sqleti.branches 
-$Dc06.sqleti. branches 
.$0c08.sqlet1.branches 
-$0c10.sqleti1.branches 
-$Dc12.sqlet1.branches 
-$0c014.sqietl.oranches 


.$system.sqlet1.branches 


.$Dd02. 
.$Dd04. 
. $D0d06. 
. $0d08. 
.$Dd10. 
-$Dd12. 
-$Dd14. 


.$system.sqlet!.branches 


sqleti. 
sqieti. 
sqleti. 
sqleti. 
sqlieti. 
sqleti. 
sqleti. 


branches 
branches 
branches 
branches 
branches 
branches 
branches 


create tellers 


tellers fiieé - record 
len function: 
12 teller number 
12 teller balance 
6 filler 
10 filler 
10 filler 


CATALOG 
CATALOG 
CATALOG 
CATALOG 
CATALOG 
CATALOG 
CATALOG 


CATALOG 
CATALOG 
CATALOG 
CATALOG 
CATALOG 
CATALOG 
CATALOG 
CATALOG 


CATALOG 
CATALOG 
CATALOG 
CATALOG 
CATALOG 
CATALOG 
CATALOG 
CATALOG 


CATALOG 
CATALOG 
CATALOG 
CATALOG 
CATALOG 
CATALOG 
CATALOG 
CATALOG 


CATALOG 


-$SYSTEM 
-SSYSTEM. 
-$SYSTEM. 
-$SYSTEM. 
-$SYSTEM. 
-$SYSTEM. 
-$SYSTEM. 
-SSYSTEM. 


. 


-SSYSTEM. 
»-SSYSTEM. 
-$S$SYSTEM. 
-$SYSTEM. 
-S$SYSTEM. 


$SYSTEM. 


-SSYSTEM. 
-$SYSTEM. 


-SSYSTEM. 
-SSYSTEM. 
-SSYSTEM. 
-SSYSTEM. 
-$SYSTEM. 
-$SYSTEM. 
-$SYSTEM. 
-$SYSTEM. 


-$SYSTEM. 


-$SYSTEM.CATET 1 
-$SYSTEM. 
-$SYSTEM. 
-$SYSTEM. 
-SSYSTEM. 
-SSYSTEM. 
-SSYSTEM 


CATET1 
CATET1 
CATET1 
CATET] 
CATET1 
CATET1 


CATET1 
CATET1 
CATET1 
CATET1 
CATET1 
CATET 1 
CATET1 
CATET1 


CATET1 
CATET) 
CATET1 
CATET 1 
CATET 1 
CATET} 
CATET1 
CATET1 


CATET 1 
CATET1 
CATET1 
CATET1 
CATET 1 
CATET I 
CATET1 
CATET1 


CATET 1 


EXTENT ( 
EXTENT ( 
EXTENT ( 
EXTENT ( 
EXTENT ( 
EXTENT ( 
EXTENT ( 


EXTENT ( 
EXTENT ( 
EXTENT ( 
EXTENT ( 
EXTENT ( 
EXTENT ( 
EXTENT ( 
EXTENT ( 


EXTENT ( 
EXTENT ( 
EXTENT ( 
EXTENT ( 
EXTENT ( 
EXTENT ( 
EXTENT ( 
EXTENT ( 


EXTENT ( 
EXTENT ( 
EXTENT ( 
EXTENT ( 
EXTENT ( 
EXTENT ( 
EXTENT ( 
EXTENT ( 


EXTENT ( 


No 
—_ 
. 
N) 


>_< we ew ew we 


No 
_ 
. 
N 
eee ew rs 


ee ee ee ee ee 


-— ye ew ew © we we 


! 6 10 filler 
{ 7 10 filler 
! 8 10 filler 
! 9 10 filler 
! 10 10 filler 
t 

! 


partitions: 
primary 


secondaries: 


\a.$system 


1 
t 
i] 
! 
! \a.$da02 \b.$system \c 
' \a.$da04 \b.$db02 \c 
! \a.$da06 \b.$db04 \c 
! \a.$da08g \b.$db06 \c 
! \a.$da10 \b.$db08 \c 
' \a.$da12 \b.$db10 \c 
! \a.$da14 \b.$db12 \c 
! \b.$db14 \c 
! 


CREATE TABLE \a.$SYSTEM.SQLET1. 


teller_number 
teller_balance 
teller_rest_1 
teller _rest_2 
teller._rest_3 
teller_rest_4 
teller_rest_5 
teller_rest_6 
teller_rest_7 
teller_rest_8 
) 


PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 


ORGANIZATION Relative 


NO AUDIT 
BUFFERED 


CATALOG \A.$system.catet] 


BLOCKSIZE 2048 
MAXEXTENTS 16 
EXTENT (13,2 ) 
PARTITION ( 


$system \d. 
$dc02 \d. 
$dc04 \d. 
$dc06 \d. 
$dc08 \d. 
$dc10 \d. 
$dci2 \d. 
$dc14 \d. 


TELLERS ( 
x(12), 
s9(12), 
x(12), 
x(4), 
x(10), 
x(10), 
x(10), 
x(10), 
x(10), 
x(10) 


\a.$DA02.sqleti.tellers CATALOG 
\a.$DA04.sqleti.tellers CATALOG 
\a.$DA06.sqlet1.tellers CATALOG 
\a.$DA08.sqleti.tellers CATALOG 
\a.$DA10.sqieti.tellers CATALOG 
\a.$DA12.sqleti.tellers CATALOG 
\a.$dal4.sqietl.tellers CATALOG 
\b.$system.sqleti.tellers CATALOG 
\b.$0b02.sqleti.tellers CATALOG 
\b.$Db04.sqletil.tellers CATALOG 
\b.$Db06.sqliet1.tellers CATALOG 
\b.$0b08 .sqliet1i.tellers CATALOG 
\b.$0b10.sqlet1.tellers CATALOG 
\o.$Db12.sqletil.tellers CATALOG 
\bo.$db14.sqlet!.tellers CATALOG 


$system 
$dd02 
$dd04 
$dd06 


-SSYSTEM. 
-$SYSTEM. 
-SSYSTEM. 
-SSYSTEM. 
- SSYSTEM. 
-SSYSTEM. 
-SSYSTEM. 


- SSYSTEM. 
- SSYSTEM. 
-SSYSTEM. 
.SSVYSTEM. 
-SSYSTEM. 
-SSYSTEM. 
\b.SSYSTEM. CATET1 
\b.$SYSTEM. 


\e.$system 


CATET1 
CATET1 
CATET! 
CATET1 
CATET1 
CATET} 
CATET1 


CATET1 
CATET1 
CATET1 
CATETI 
CATET1 
CATET1 


CATET} 


ee ee ee ee ee er ar er eer 


EXTENT(13,2 
EXTENT(13,2 
EXTENT(13,2 
EXTENT(13,2 
EXTENT(13,2 
EXTENT( 13,2 
EXTENT(14,2 


EXTENT(13,2 
EXTENT(13,2 
EXTENT(13,2 
EXTENT(13,2 
EXTENT(13,2 
EXTENT(13,2 
EXTENT(13,2 
EXTENT(14,2 


Se hd i a a od 


New? rat Nee? Nee! Ne! Nee Ned Nee 


- 2 ew ee we eo 


EXTENT(13,2 
EXTENT(13,2 
EXTENT(13,2 
EXTENT(13,2 
EXTENT(13,2 
EXTENT(13,2 
EXTENT(13,2 
EXTENT( 14,2 


EXTENT(13,2 
EXTENT(13,2 
EXTENT(13,2 
EXTENT(13,2 
EXTENT(13,2 
EXTENT(13,2 
EXTENT(13,2 
EXTENT(14,2 


EXTENT(14,2 


\c.$system.sqleti.tellers CATALOG \c.$SYSTEM.CATET1 
\c.$DcO2.sqileti.tellers CATALOG \c.$SYSTEM.CATET1 
\c.$DcO4.sqlieti.teliers CATALOG \c.$SYSTEM.CATET1 
\c.$DcO6.sqlietli.tellers CATALOG \c.$SYSTEM.CATET1 
\c.$D0cO08.sqleti.tellers CATALOG \c.$SYSTEM.CATET1 
\c.$Dc10.sqieti.tellers CATALOG \c.$SYSTEM.CATET!1 
\c.$Dcil2.sqieti.teliers CATALOG \c.$SYSTEM.CATET! 
\c.$dcl4.sqleti.tellers CATALOG \c.$SYSTEM.CATET1 
\d.$system.sqlet!i.tellers CATALOG \d.$SYSTEM.CATET1 
\d.$0d02.sqleti.tellers CATALOG \d.$SYSTEM.CATET1 
\d.$Dd04.sqleti.tellers CATALOG \d.$SYSTEM.CATET1 
\d.$0d06.sqieti.tellers CATALOG \d.$SYSTEM.CATET1 
\d.$0d08.sqieti.tellers CATALOG \d.$SYSTEM.CATET1 
\d.$D0d10.sqlet1.tellers CATALOG \d.$SYSTEM.CATET1 
\d.$Dd12.sqietl.tellers CATALOG \d.$SYSTEM.CATET1 
\d.$dd14.sqlieti.tellers CATALOG \d.$SYSTEM.CATET1 
\e.$system.sqlet1!l.tellers CATALOG \e.$SYSTEM.CATET! 
a 

?7section create history 

bee ee a a ee a er ‘ 

! create history file - record length 50 


account number 
teller number 
amount tendered 


' 

! field: len: function: 
| come we me eee ee we oe 
! 1 12 

! 2 12 

! 3 12 

' 4 6 date 

! 5 8 time 

' 

' 


CREATE TABLE \A.$B41VLX.SQLET1.HISTORY  ( 
history _account_number 
history_teller_number 
nistory_amount 
history_yymmdd 
history _hhmmsscc 


CREATE 


) 


PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 


ORGANIZATION Entry sequenced 


AUDIT 


CATALOG \A.$SYSTEM.CATET1 


BLOCKSIZE 4096 
EXTENT (1000,1000) ; 


TABLE \b.$db01.SQLET1.HISTORY ( 


history_account_number 
history _teller_number 


history amount 
history_yymmdd 
history _hhmmsscc 


) 


PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 


x(12), 
x(12), 
s9(12), 
x(6), 
x(8) 


rem Ne Sem New! See Nee Neer Nene 


) 


rr ) 


CREATE 


CREATE 


CREATE 


ORGANIZATION Entry sequenced 
AUDIT 

CATALOG \b.$SYSTEM.CATET1 
BLOCKSIZE 4096 

EXTENT (1000,1000) ; 


TABLE \c.$dc01.SQLET1.HISTORY ( 


history _account_number PICTURE 
history_teller_number PICTURE 
history amount PICTURE 
history_yymmdd PICTURE 
history_hhmmsscc PICTURE 


) 

ORGANIZATION Entry sequenced 
AUDIT 

CATALOG \c.$SYSTEM.CATET1 
BLOCKSIZE 4096 

EXTENT (1000,1000) ; 


TABLE \d.$dd01.SQLET1.HISTORY ( 
history_account_number PICTURE 


history_teller_number PICTURE 
history_amount PICTURE 
history_yymmdd PICTURE 
history_hhmmsscc PICTURE 
) 


ORGANIZATION Entry sequenced 
AUDIT 

CATALOG \d.$SYSTEM.CATET1 
BLOCKSIZE 4096 

EXTENT (1000,1000) ; 


TABLE \e.$system.SQLET1.HISTORY 

history _account_number PICTURE 
history_teller_number PICTURE 
history_amount PICTURE 
history_yymmdd PICTURE 
history_hhmmsscc PICTURE 


) 

ORGANIZATION Entry sequenced 
AUDIT 

CATALOG \e.$SYSTEM.CATET1 
BLOCKSIZE 4096 

EXTENT (500,500) ; 


x(12), 
x(12), 
s9(12), 
x(6), 
x(8) 


x(12), 
x(12), 
s9(12), 
x(6), 
x (8) 


S Pup COnMIAanu 


Priel 


< accounts file 


url 


allow 100 errors 

set type k 

set ext ( 2600 pages, 
set maxextents 99 

set rec 100 

set block 4096 

set iblock 4096 

set keylen 12 

set keyoff 0 

set part ( 1, \a.$da03, 
set part ( 2, \a.$da05, 
set part ( 3, \a.$da07, 
set part ( 4, \a.$da09, 
set part ( 5, \a.$dall1, 
set part ( 6, \a.$da13, 
set part ( 7, \a.$da15, 
set part ( 8, \b.$db01, 
set part ( 9, \b.$db03, 
set part (10, \b.$db05, 
set part (11, \b.$db07, 
set part (12, \b.$db09, 
set part (13, \b.$db11, 
set part (14, \b.$db13, 
set part (15, \b.$db15, 


create $b41vlx.accounts 


< history 


reset 

set type e 

set rec 100 
set block 4096 
set ext (1000, 


10 


00) 


create \a.$system.history 
create \b.$system.history 


< tellers 
reset 

set type r 

set block 2048 
set rec 100 
set ext (13,2 
set part 
set part 
set part 
set part 
set part 
set part 
set part 
set part 
set part 
set part 
set part 
set part 
set part 
set part 


bhWN-OOMONOUBRWN — 


rr 


LO ON LOR LOR LON LON LOR LON LON LON NNN 
tet es 


) 
\a. 


$da03,13,2 


-$da05,13,2 
.$da07,13,2 
.$0da09,13,2 
.$da11,13,2 
.$da13,13,2 
.$da15,14,2 
.$db01,13,2 
-$db03,13,2 
-$0b05,13,2 
.$db07,13,2 
.$db09,13,2 
.$db11,13,2 
-$db13,13,2 


2600, 
2600, 
2600, 
2600, 
2600, 
2600, 
2600, 
2600, 
2600, 
2600, 
2600, 
2600, 
2600, 
2600, 
2600, 


ae New Nee Ne Ne Nae Ne eet ae Ne ee a Nee 


Li Cac ilty LIVNOUNLIVL UdGdtlavuase 1 


2600 pages ) 


2600, 
2600, 
2600, 
2600, 
2600, 
2600, 
2600, 
2600, 
2600, 
2600, 
2600, 
2600, 
2600, 
2600, 
2600, 


wi 


"000000800000" 
"000001600000" 
"000002400000" 
“000003200000" 
“000004000000" 
"000004800000" 
"000005600000" 
“000006400000" 
"000007200000" 
"000008000000" 
“000008800000" 
"000009600000" 
"000010400000" 
"000011200000" 
“Q00012000000" 


tins 


PWT AYN MSV om 


set 


part (15, 


\b. 


$db15,14,2 


create $b41vlx.tellers 


< branches 
reset 


set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 


type r 
block 512 
rec 100 
ext ( 21, 
part ¢ 
part ( 
part { 
part ( 
part ( 
part ( 
part ( 
part ( 
( 
( 
( 
( 
( 
( 
( 


» 


part 
part 
part 
part 
part 
part 
part 


OBWN—-OOOMNOUAWN— 


2- ee ee es we eo eH ee ell 


— ses 


.$da03,20,2 
.$da05, 20,2 
.$da07,20,2 
.$da09,21,2 
.$da11,20,2 
.$da13,20,2 
.$da15,20,2 
.$db01,21,2 
.$db03, 20,2 
.$db05, 20,2 
.$db07, 20,2 
.$db09 ,21,2 
.$db11,20,2 
.$db13,20,2 
.$db15,20,2 


create $b41v1lx.branches 


elist ; 
?7SAVE PARAM 
7HEADING "COBSQL for DebitCredit Transaction (ET1)" 


? SYMBOLS 

? INSPECT 

2A KA A a RRR ER OR ORE EE OE EE EE 
* TOPGUN Server * 
A A a oR A RR RR RE BE EE ER EE BE EE EEE EEE EE EEE 
* * 
* This server is designed to be run in a PATHWAY environment to test the * 
* performance of Tandem’s SQL in the ET1 debit/credit transaction. * 
* * 


[Se SE REE ESS ES SEE SESE SEES EEE EES EERE SERRE SSE SSS SERRE SERS SESE RES ESSE SESE TEESE SES SS EE 


3 ie RR KR RK 2 6 eK KOR RK KOR KK KK KK KK KK KK KK KKK KOK ROKK KE KKK KK KKK KK KEK 


* General flow: * 
SEH A RR RR RRR ROR RK REE EE KKK ERR ERE EE EK 
* * 


* BEGINTRANSACTION * 
* ACCEPT 100 bytes from Requestor. * 
* UPDATE Accounts File (100 bytes) * 
* UPDATE Tellers File (100 bytes) * 
* UPDATE Branches File (100 bytes) * 
* WRITE History File (50 bytes) * 
* REPLY 102 bytes to Requestor. * 
* ENDTRANSACTION * 
* * 
* * 


LS eee eee eee eee Ee SS SS ESS EE SSS ESTES SEER SERS SESE SESE SERS ES SESE SES RES SES SEE EE ES SS 


PSPS ELE REE EE EE SEES ES SESE ES ERE SES SE EERE SSE SS ERE ERR EEE ES SRS ESE SES SESE ES ES ESS ES SF 


* Data Descriptions * 
EeePC ECECCLCCLSCES LCL SSCL SCTE LEL ESSEC CLS CSS TSEC SEL CES SLES SSL CSLOCLCL LOSSES LL SS S| 
x * 
* Message from Requestor: * 
* * 
rs Filler 1 Byte * 
* Account Number 12 Bytes * 
* Filler 1 Byte * 
* Teller Number 12 Bytes * 
* Filler 1 Byte * 
* Branch Number 12 Bytes * 
* Filler 1 Byte * 
* Amount Tendered 12 Bytes * 
* * 
* Reply to Requestor: * 
* * 
* Reply Code 2 Bytes (Non-zero if error else zero.) * 
* Filler 100 Bytes * 
* * 
* (For data descriptions of files, please see the appropriate SQLCI * 
* command file(s).) * 
* * 
ok RRR RR RRR RK RRR KK KKK KEKE KKK ERK KEK KKK KKK KKK KEK KKK KEKE KKKKKKEKKEK KKK HEHE KK 


Tee ESE LES EL ELE SEE SEE SSE ESS SESE SES SSE SESS ETS S SESE EES ES ESSE SST SEES S SES SEES SS SS FS 


* Change history: * 
BHKEKEKKAKE KARE AKA EK ERK AKER KEK KKK RK KKKKE KEKE KEKE KEKE KKK KKAKKAKKKKAKAA KARE EKAHKEKE KEKE 
* * 


* tiw fi1114 and deita added to message-in-record. * 


th 
vs 


tiw 02 


tiw 02 


tlw 02 


tiw O02 


tiw 02 


tiw 02 


tlw 02 


tiw O03 


tlw 03 


tiw 04 


tiw 04 


tiw 04 


is value will be used to keep track of remote 
. local transactions. 


modify data formats to agree with sql, et al. 

ALL numeric fields changed to pic 9(x); ji.e., 

there are NO more computational fieids. 

(tne reply code to the requestor remains comp, however.) 


delete blank substitution (with “O") 
(script generator was modified for this.) 


commented out leading "1" in account number. 
(database loading routines must be modified.) 


added WHENEVER NOT FOUND ... 


deleted branch number and filler from write to 

history file. (these fields are now all pic 9; 
a history file record thus contains fifty bytes 
--account and teller numbers, amount tendered, 

and date/time group) 


commented out call to DEBUG (INSPECT does not 
recognize the "s" command issued by $HOME. ) 


DTG changed to pic Q. 
all data types, with the exception of "balance" fields, changed 
to pic x. 


added teller-key-hv and branch-key-hv (both pic 9(12) comp) in 
order to be compatible with search by SYSKEY (32-bit value) 


corrections found by Tom Sawyer: 
loop counter initialization 
pic x changed to pic 9 for branch and teller keys 
WHERE clause changed to test for account balance limit 


changed amount-tendered to signed 


changed syskey comparison to teller-key-hv and branch-key-hv 
instead of teller-number-hv and branch-number-hv 


KR RO KK KKK KE KKK KEKE KEE KKK KKK KEKE KK EK KK KK KOK KK KK KK KE KK EK KOK KKK KKK KK KK KEK 


IDENTIFICATION DOIVISION. 


PROGRAM-ID. ET1-COBSQL-server. 
Author. Version 4. 
DATE-WRITTEN. 
SECURITY. 

ENVIRONMENT DIVISION. 


CONFIGURATION SECTION. 
SOURCE-COMPUTER. TANDEM/16. 
OBJECT-COMPUTER. TANDEM/16. 


INPUT-OUTPUT SECTION. 


FI 


LE-CONTROL. 

SELECT message-in 
ASSIGN TO $RECEIVE 
ORGANIZATION IS SEQUENTIAL 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


ACCESS MOVE LS SEQUENTIAL 
FILE STATUS IS file-stat. 


SELECT message-out 
ASSIGN TO $RECEIVE 
ORGANIZATION IS SEQUENTIAL 
ACCESS MODE IS SEQUENTIAL 
FILE STATUS IS file-stat. 


RECEIVE-CONTROL. 
TABLE OCCURS 2 TIMES 
SYNCDEPTH LIMIT IS 2 
REPLY CONTAINS message-out RECORD. 


DATA DIVISION. 
FILE SECTION. 
FD message-in 


LABEL RECORDS ARE OMITTED. 
O1 message-in-record. 


O02 filler-1 PIC X. 

Q2 account~-number PIC X(12). 

02 filler-2 PIC X. 

02 teller-number PIC 9(12). 

02 filler-3 PIC X. 

02 branch-number PIC 9(12). 

02 filler-4 PIC X. 

02 amount-tendered PIC s9(12). 


FD message-out 
LABEL RECORDS ARE OMITTED 
RECORD CONTAINS 102 CHARACTERS. 
01 message-out-record. 
02 reply-header PIC 9(4) COMP. 
02 out-buffer PIC X(100). 


WORKING-STORAGE SECTION. 


01 loop-record PIC 9. 
88 not-all-done VALUE O. 
88 all-done VALUE 1. 
01 file-stat PIC XxX. 


eke keke te fe oft eo oe ee te deo eo oe oo oe oe ke oe ee ORE OR oe ok RR ok kk RR dod ok kkk RRR ROR OR ROR ROR KORE 


* Working storage section for the ET1 SQL code - HOST VARIABLES * 
2 KK A RR ORR OR RRR RRR RRR ORR RRR OR ROKR ROK ORR RF 


EXEC SQL BEGIN DECLARE SECTION END-EXEC. 


01 account-number-hv PIC X(12). 

01 tellter-number-hv PIC X(12). 

01 teller-key-hv PIC 9(12) comp. 
01 branch~number-hv PIC X(12). 

01 branch-key-hv PIC 9(12) comp. 
O01 amount-tendered-hv PIC S$9(12). 

01 yymmdd-hv PIC X(6). 


01 hHhmmsscc-hv PIC X(8). 


EXEC SQL END DECLARE SECTION END-EXEC. 


/ 
Re RRA OR RRR ROR OR RR RR ERR OR ROR ROR KOK KK 
* Main routine * 


RR aK ER KK BR OK EE RR EK OR EEK ROK RK EER RK RK EK EA KR EK 
PROCEDURE DIVISION. 


MAIN SECTION. 


BEGIN-ET1-COBOL-Server. 


eA RK eo KOK OK KOK KOK KK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KK EK K 


* Initialize error routines ¥ 
9 ie ee ie oe oe ok ok oe oo ie ke ee ieee ok Ko KK 2K Ko ok KK eK KK EE EE OOK OK OE KOK OK EK OK KE EK OE KOK OK KOK OK KK OK OK 
EXEC SQL WHENEVER SQLERROR PERFORM :SHOWIT END-EXEC. 


EXEC SQL WHENEVER SQLWARNING PERFORM :SHOWIT END-EXEC. 
EXEC SQL WHENEVER NOT FOUND PERFORM :SHOWIT END-EXEC. 


FR RO A eK eK KO EK OR OR ROK OK OK KOK KOK OK KOK KK 


* Enter main loop * 
Se RR OR RRR RR ok RR RRR ROR RRR RRR OK ROR OR RRR ROKR RRR ROR ROR REE ORK E 
PERFORM Init-files. 
PERFORM do-transaction UNTIL all-done. 
PERFORM shut-files. 


STOP RUN. 
/ 
ae ae ok ok ok 2k ok ook oo ok 2K OK OK OK KK OK OK OK OK KOK KOK KOK KOK OK OK KOK KOK OK OK KOK OK KOK KK OK OK OK OK KOK KOK KK OK KOK OK KK KK OK OK 
* Initialization, open the server $RECEIVE * 


Pe PEC CEP CSE SSCS SESS SESE CSCS SCS SSCS ESE SSS SESS SS LES SSCL SSCL OS EST SESE SES) 
Init-files. 

OPEN INPUT message-in SYNCDEPTH 1. 

OPEN OUTPUT message-out. 

MOVE O TO reply-header. 

MOVE O TO loop-record. 


/ 
RR RRR RRR RRR RRR RRR ROR RRR RR RR ROR RRR KKK ROR RE ROKR EK KEE KR KKK 
* Shut down —- close $RECEIVE * 


aK AK a ok oe oR KK a a eo oO KK KK OK KK KK OE KE OK KOK KE KOK KK KE KE KOK KH OK KKK OK OK KOK OK KK 
Shut-~files. 

CLOSE message-in. 

CLOSE message-out. 
/ 


do-transaction. 
KBKEKRKKKE KK KKK KKK KKK KKK K AEE KKK KK KE KK KOK KO OK HK KOK KKK KA KK KK OK KK KOK KK KK 


* ACCEPT message from Requestor * 
Poe CETELCCCOCOCCOCL ESL L SLES EEL eS eee Pee SSCS See SS CLES SSS ELL ESS 


MOVE O TO reply-header. 
READ message-in. 
IF file-stat NOT EQUAL zero MOVE 1 TO reply-hneader. 


ae ok eR ko RR OR OK OK KEK KER EK KR KEK KEK KK KEKE KEKE KEK KKK KE KK KE KE KK 


= Get current timestamp for history file x 
RA AAA RR RR RR RRR ORR ORR RRR RE RRR EEE 


ACCEPT yymmdd-hv FROM DATE. 
ACCEPT hhmmsscc~hv FROM TIME. 


KARR AR RR RK ERK R ERK ERK RK ER AK KERR KKK ER ARK ERK RRR EE ERR KK KK KK KK KK 
* Move the numbers to SQL host variables. * 


6 ag i oa OR RO Re EK KORE KOK KO KE KK EKA EEK KEK KEKE KE KKK REE EEK KE KKK EK KEE KK EK 


MOVE account-—number TO account-number-hv 
MOVE teller-~number TO teller-number-hv. 
MOVE teller-number TO teller-key-hv. 
MOVE branch-number TO branch-number-hv. 
MOVE branch~number TO branch-key-hv. 


MOVE amount-tendered TO amount-tendered-hv. 


2 Kk A aK RCH RRR ORR RRR AR RR OR 
* UPDATE Account File * 
2 eA I a RRR EE 


EXEC SQL UPDATE =accounts 


SET account_balance = account_balance + :amount-~tendered-hv 


WHERE account _number :account-—number-hv 
AND (account_balance + :amount-tendered-hv) >= 0 
END-EXEC. 


oR ORR ROR KR RRR RK KK EK KK KK OE KE KKK ERK KEKE KKK KEKE KEE KEKE KKK EK EK EEK KK KK 


* UPDATE Teller File * 
RRR REA RR RRR BRK RR REE KKK AREER KEE KEKE RE KA KK EE EAE REE EK EEE EEK EE KK KEE 
EXEC SQL UPDATE =tellers 
SET teller_balance = teller_balance + :amount-tendered-hv 
WHERE syskey = :teller-key-hv 
END-EXEC. 


BB OK RR ORK OR RE KR EK KKK KEKE RAKE KE A KKK AKA HAKKAR A KAA KAKA EKA E KA KEE EKA EH 


* UPDATE Branch File * 
oe a RR KK eR RK KR RK RK ROR KOK ROK KKK EK 
EXEC SQL UPDATE =branches 
SET branch_balance = branch_balance + :amount-tendered-hv 
WHERE syskey = :branch~-key-hv 
END-EXEC. 


3K RK RR RRR RR ROKK RR RR RR RR AK EK RR RR KKK ERE 
* WRITE History File * 
AAR RRR RRR OR ok oR OR OR OK RR OR ORK KORO 
EXEC SQL INSERT INTO =HISTORY 
VALUES ( ;account-number-hv 

» :teller-number-hv 

», z:amount-tendered-hv 

» ryymmdd-hv 

» z:hhmmsscc—hv 


END-EXEC. 


3 oe a ok ok aR ob oo ok kok ok Ko RR KR KR KOK OR ROR ROR KOK KR KKK KR KR RK KKK KKK KKK KKK KKK KKK KKK KEE 


* REPLY to Requestor * 
oe eo eK EK KK OK KK KOK KK KK KK RRR KE KOK KR KOK KR KOR ROK KOK KR KOK KKK OK KK KOK KK KKK EF 


WRITE message-out-record END-WRITE. 


LL cee eee ee eee eS ESE SESE SS EPS SSSR SE SESE RRR ERE ERR R SEE ES ERE S ES ESE ES ES 


* Error Handling Routine * 
RR HR RR RR ORR OR ROR RRR ROR ROR OR RRR ROR ORR OR ROR EE 
SHOWIT. 


ENTER TAL SQLCADISPLAY USING SQLCA, ~-1. 
= ENTER TAL DEBUG. 
MOVE 1 TO reply-header. 


PAGE 1 $SAUR.JGRAY.CCOBSQL Tandem COBOL85 
ANSI 1985 COBOL - 19257B40 - (30 OCT 86) Source language: COBOL-1985 Target machine: 
Compiled: 87/02/18 - 18:57:13 Default options: On (LIST,LMAP, SHOWCOPY, WARN) 
1 ?list 
2 7SAVE PARAM 
3 7HEADING “COBSQL for DebitCredit Transaction (ET1)” 
4 7 SYMBOLS 
5 2? INSPECT 
6 
7 SE HR RR KOR ER OR ROR ROR ER RE OR ERK RK EEK KE 
8 * TOPGUN Server * 
9 IOI A ROR IR RRR ORO RRR RR RRR RRR ROR RRR ORR RRR OR RRR OR ERROR ROKR EOE 
10 * * 
11 * This server is designed to be run in a PATHWAY environment to test the * 
12 * performance af Tandem’s SQL in the ET1 debit/credit transaction. * 
13 * * 
14 2A A a A eo OR RR RRR ROR ORR ROKK RRR RR OR ROKR KOK RRR ROK RK KK 
15 
16 KK KARR EK KKK ER KKK KR KERR KEK ARK ERKEKKKKKKKEKKAEAKEAKAE EKER KRKA KARE EA KEE KEKE KK KAKA KH EKA KAKA AH 
17 * General flow: * 
18 2 FR A AR OR AR RR OR ROKR ORR ROR RRR OKO ROR OK KOR KKK KK 
19 * * 
20 * BEGINTRANSACTION * 
21 * ACCEPT 100 bytes from Requestor. * 
22 * UPDATE Accounts File (100 bytes) * 
23 * UPDATE Tellers File (100 bytes) * 
24 * UPDATE Branches File (100 bytes) * 
25 * WRITE History File (50 bytes) * 
26 * REPLY 102 bytes to Requestor. * 
27 * ENDTRANSACTION * 
28 * * 
29 RA A RI AR AR RR RRR RRR OR OR RRR RRR ROKR RRR ROR ROKK OK ROK ROK RR KK 
30 
31 PEC CE CLELE LOSE LLC CLEC CLEC ES ESE SELES SSS ECCS ES SSP S EL SEES SSL ESTEE SSE SCS Ee LE SS es 
32 * Data Descriptions * 
33 6 6 OO OK ROK OK KOK KK OK KK KOK KKK KKK KOK KE KK KOK KK KK KK KKK KKK KK KK KK KKK KKK KK ROKK KK KOK OK KOK KKK 
34 * * 
35 * Message from Requestor: * 
36 * * 
37 * Filler 1 Byte * 
38 * Account Number 12 Bytes * 
39 * Filler 1 Byte * 
40 * Teller Number 12 Bytes * 
4) * Filler 1 Byte * 
42 * Branch Number 12 Bytes * 
43 *¥ Filler 1 Byte * 
44 * Amount Tendered 12 Bytes * 
45 * * 
46 * Reply to Requestor: * 
47 * * 
48 * Repiy Code 2 Bytes (Non~zero if error else zeros.) * 
49 * Filler 100 Bytes * 
50 * * 
51 * (For data descriptions of files, please see the appropriate SQLCI * 
52 * command file(s).) * 
53 * * 


Tandem NonStop System 
Off (CODE,ICODE,MAP) 
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COBSQL for DebitCredit Transaction (ET1) 


aR a ie KO OK KB KK KK KK KK KKK KKK KEKE KKK ERK KKK EKREEE EEK KK 


28 ROR ROE OK KK KEE EK EK ER KK KKK ERK EEK KER KE KKK EKER ERE EK KKK EEE EEK KERR EK REE KE KEE KE 


* Change history: 
Pee PS ES OCLC ESSEC OCS EC LOCC ESSE L ESS CSCC EC SSCS LCL OSC SLC LCCC CS CCE SS SESE SEL SLES SSE SS | 


* 


* 
* 
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* 
* 
* 
* 
* 
* 
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tiw f1114 and delta added to message-in-record. 
this value will be used to keep track of remote 


tlw 


tlw 


tiw 


tlw 


tiw 


tiw 


tiw 


tlw 


tlw 


tlw 


tlw 


tlw 


vs. 
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local transactions. 


modify data formats to agree with sql, et al. 

ALL numeric fields changed to pic 9(x); i-.e., 

there are NO more computational fields. 

(the reply code to the requestor remains comp, however. ) 


delete blank substitution (with "0O") 
(script generator was modified for this.) 


commented out leading "1" in account number. 
(database loading routines must be modified.) 


added WHENEVER NOT FOUND ... 


deleted branch number and filler from write to 

history file. (these fields are now all pic 9; 
a history file record thus contains fifty bytes 
--account and teller numbers, amount tendered, 

and date/time group) 


commented out cali to DEBUG (INSPECT does not 
recognize the "“s" command issued by $HOME. ) 


DTG changed to pic Q. 


all data types, with the exception of "balance" fields, changed 
to pic x. 


added teller-key-hv and branch-key-hv (both pic 9(12) comp) in 
order to be compatible with search by SYSKEY (32-bit value) 


corrections found by Tom Sawyer: 
loop counter initialization 
pic x changed to pic 9 for branch and teller keys 
WHERE clause changed to test for account balance limit 


changed amount-tendered to signed 


changed syskey comparison to teller-key-hv and branch-key-hv 
instead of teller-number-nv and branch~number-nv 


KEKE KKK KA KBR RK KKK KKB KEK KEK KK AKAKKK EE ERK AKA AK KR EK KEK KAK KKK KAKA KE KKK KEK AK KKK EK 


IDENTIFICATION DIVISION. 
PROGRAM-ID. ET1-COBSQL-sServer. 
Author. 
DATE-WRITTEN. 
SECURITY. 


Version 4. 


* 


* 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
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* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


87/02/18 


18:57:1 


PAGE 3 $SAUR.JGRAY.CCOBSQL COB8SQL for DebitCredit Transaction (ET!) 87/02/18 - 18:57:31 


111 ENVIRONMENT DIVISION. 

112 CONFIGURATION SECTION. 

143 SOURCE-COMPUTER. TANDEM/16 

114 OBJECT-COMPUTER. TANDEM/16 

115 

116 INPUT-OUTPUT SECTION. 

117 FILE-CONTROL. 

118 SELECT message-in 

119 ASSIGN TO $RECEIVE 

120 ORGANIZATION IS SEQUENTIAL 

121 ACCESS MODE IS SEQUENTIAL 

122 FILE STATUS IS file-stat. 

123 

124 SELECT message-out 

125 ASSIGN TO $RECEIVE 

126 ORGANIZATION IS SEQUENTIAL 

127 ACCESS MODE IS SEQUENTIAL 

128 FILE STATUS IS file-stat. 

129 

130 RECEIVE-CONTROL. 

131 TABLE OCCURS 2 TIMES 

132 SYNCDEPTH LIMIT IS 2 

133 REPLY CONTAINS message-out RECORD. 
134 

135 DATA DIVISION. 

136 

137 FILE SECTION. 

138 

139 FD message-in 

140 LABEL RECORDS ARE OMITTED. 

141 O01 message-in-record. 

142 O02 filler-1 PIC X. 

143 02 account-—number PIC X(12). 
144 O02 filler-2 PIC X. 

145 Q2 teller-number PIC 9(12). 
146 O02 filler-3 PIC X. 

147 02 branch-number PIC 9(12). 
148 O02 filler-4 PIC X. 

149 02 amount-tendered PIC s9(12). 
150 

151 FD message-out 

152 LABEL RECORDS ARE OMITTED 

153 RECORD CONTAINS 102 CHARACTERS. 
154 01 message-out-record. 

155 02 reply-header PIC 9(4) COMP. 
156 O02 out-buffer PIC X(100). 
157 

158 WORKING-STORAGE SECTION. 

158.001 ?NOLIST 

159 

160 01 loop-record PIC 9. 

161 88 not-all-done VALUE O. 
162 88 ali-done VALUE 1. 
163 

164 01 file-stat PIC XxX. 
165 


166 KARR RR EKER RRR KE ERK KEE EK EEE EEE EEE EEE EE KEE EEE EEE EE EE EE EEE EE EK EEK EE EE 
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167 * Working storage section for the ET1 SQL code - HOST VARIABLES * 
168 Pec eS ECLS EPCS ESL E LSS CSS SS SESE SCL EL SCS SSE L EC SES CSCS SSCS ESSE SS ST SS See eee ss 
169 

170 * EXEC SQL BEGIN DECLARE SECTION END-EXEC. 

171 

172 01 account-number-hv PIC X(12). 

173 01 teller-number-hv PIC X(12). 

174 O01 tellter-key-hv PIC 9(12) comp. 

175 01 branch-number-hv PIC X(€12). 

176 01 branch-key-hv PIC 9(12) comp. 

177 01 amount-tendered-hv PIC $9(12). 

178 01 yymmdd-hv PIC X(6). 

179 01 hhmmsscc-hv PIC X(B). 

180 

181 * EXEC SQL END DECLARE SECTION END-EXEC. 


182 
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183 
184 
185 
186 
187 
187 
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188 
189 


-001 
.002 


SSAUR.JGRAY.CCOBSOL 


/ 
RHKKKRKKKKKKKKKKKKRK KK KRKKKE KAKA KE KKK KKK KKKKEKKEKRKEKR KKK EK KAR KEK KEK KKK KK KE 
* Main routine * 


9A A A A AK HA OR RE ORK ORE 
PROCEDURE DIVISION. 


SQL-INIT-PAR. 

PERFORM SQL-INIT. 
MAIN SECTION. 
BEGIN-~ET1-COBOL~-server. 


LEER ERS EE LSE EEE EE SEES ES SEES SEE SE SESS ESE SES EES SESE ES ESE SERS ESE EEE EE ES EE 


* Initialize error routines * 
BK KK EA KKK KBAR KKK ARK EK KAR EEK EEK KARR BR AR AK KK KEK KEKE AK KEKE RE REE KKK KEKE 
* EXEC SQL WHENEVER SQLERROR PERFORM :SHOWIT END-EXEC. 


* EXEC SQL WHENEVER SQLWARNING PERFORM :SHOWIT END-EXEC. 
* EXEC SQL WHENEVER NOT FOUND PERFORM :SHOWIT END-EXEC. 


6 2 eo oe eR OK OK KK KK KK KK KOK KO KOK KK KK KK KK KK KO KK KK KKK 


* Enter main loop * 
ER ARR RRR ORO RRR ROR ROK RK ROR 
PERFORM Init-files. 
PERFORM do-transaction UNTIL all-done. 
PERFORM shut-files. 
STOP RUN. 


COBSQL for DebitCredit Transaction (ET1) 


87/02/18 


18:57:11 


$SSAUR.JGRAY.CCOBSQL COBSQL for DebitCredit Transaction (ET1) 


/ 
RR HR AK RA KAR FRR SEE OE ER RE ROR EEE EER EE RE EE EEE EE KE 
* Initialization, open the server $RECEIVE * 
TEER RES ERE SEE ER ER EEE ERE REE E RE RES E EERE RE RR ER ERR ERR R SSE ERR EE ER SER ESE ES EOE SE 
Init-files. 

OPEN INPUT message-in SYNCDEPTH 1. 

OPEN OUTPUT message-out. 

MOVE O TO reply~header. 

MOVE O TO loop-record. 


87/02/18 


18:57: 1 


t 
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2 

ae eM RDAeS Veta eee eee eeeed eae ogee tas teresa sedi cise 
218 * Shut down - close $RECEIVE * 
219 MRK EKKEKKHEKE KKK KKK KKK KKK KKK HK HHA KH KKKKHKAK KH KKK EE KH 
220 Shut-files. 

221 CLOSE message-in. 

222 CLOSE message-out. 


¢] 
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223 
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257 
258 
259 
260 
261 
262 
263 
264 
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265 
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269 
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COBSQL for DebitCredit Transaction (ET1) 


/ 


do-transaction. 
RK KKK KKK KKK KKK KEKKEKAKAK KAKA KAKA KKK KKK KK KKK KK KK KKK KKK KEK KK KK KOK KKK 


* ACCEPT message from Requestor * 
AR RRR ROR RRR RK EK KOK RK KBR RR KR ROE ORR KOK KK KK 


MOVE O TO reply-header. 
READ message~-in. 
IF file-stat NOT EQUAL zero MOVE 1 TO reply-header. 


OR ee RR KK RB OK RK KE EO OK RE KKK KOK KOK KOK KK 


* Get current timestamp for history file * 
ARR A A RR RR RR OR OR ROK KK ORR ROKK KK 


ACCEPT yymmdd-hv FROM DATE. 
ACCEPT hhmmsscc-hv FROM TIME. 


KKK KKK RR KEK KR KKK AK KKK KK KK KEK KKK RK KARE KKK ARK KEKE ERE KEKE KKK EEK EA KKK KEKE 


* Move the numbers to SQL host variables. * 
KKKKKKKRKKKKEKK KK KKRKKK KKK KKEKKKAKEAK KE KKEKRKA REE KEKKEKEKRKEKAKKEAKHEKEK KK KAKA KHK 
MOVE account-number TO account-number-hv 
MOVE tel ier-number TO teller-number-nv. 
MOVE tel ler-number TO teller-key-hv. 
MOVE branch~number TO branch-number-hv. 
MOVE branch-number TO branch-key-hv. 


MOVE amount-tendered TO amount-tendered-hv. 


oe OK KOK KOK OK KK OK OOK KE OOK OK OK OK OK OK OK OE OK OK OO KOK OK OK OK OK OK OK KOK OK KOK KOK KKK KK KOK KK OK OK KOK KOK OK KOK 


* UPDATE Account File * 
SER OR RR RRR ROKR OR ROR KOR RRR ORR ROKR RRR EKER EKKO RK REE KEE KEKE EEE 


* EXEC SQL UPDATE =accounts 


WHERE account_number :account-—number-hv 

AND (account balance + :amount-tendered-hv) >= 0 
END-EXEC. 

PERFORM SQLDO-O. 


* * *& 


KKK KER KER ERK EEE KKK ERK K KKK EEK AA KA KEKE KKK ERK KKK KAKA KK KAKA KARE E 


* UPDATE Teller File * 
KKK KKK KK KK EK KKK KKK KKK KKK KKK KKK EKA KEK KKK KK KKK KKK ERK KEK KK KKK EK KK KKK KOK KE 
* EXEC SQL UPDATE =tellers 
SET teller_balance = teller_balance + :amount~tendered-hv 
WHERE syskey = :teller-key-hv 
END-EXEC. 
PERFORM SQLDO~-1. 


* & 


SRO IRR ROR RRR RR ORR IR RR ROR ROR ROR RRR ROR HOR ROR AOROR OR RIOR ROR RE 


* UPDATE Branch File * 
SRS Se SR SRR RIOR eR OR EER ACE EE 
* EXEC SQL UPDATE =branches 
SET branch_balance = branch_balance + :amount-tendered-hv 
WHERE syskey = :branch-key-hv 
END-EXEC. 
PERFORM SQLDO-2. 


* & & 


AA AR A a ARR OE A A RR ROR RRR OR RR ER KR KE 
* WRITE History File * 


KKK KKK AK RK KK KKK KKK RHR K KKK KOK KR KK KKK KKK KK KK KKK KKK KKK ROKK KKK KK KKK OK KK KKK KK 


SET account _balance = account_balance + :amount-tendered-hv 


87/02/18 


18:57:31 


hl 
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277 
278 
279 
280 
281 
282 
283 
284 
284. 
285 
286 


001 


SSAUR.JGRAY.CCOBSQL COBSQGL for DebitCredit Transaction (ET1) 
* EXEC SQL INSERT INTO =HISTORY 
* VALUES (OC ssaccsunt number ny 
* » :teller-number-hv 
* » s:amount~tendered-hv 
* » ryymmdd-hv 
* » zhhmmsscc-hv 
* ) 
* END-EXEC. 


PERFORM SQLDO-3. 


PEER EEE REESE SE ERE EE EE EEE EEE SEE SESE ESE SE SEES EEE T ESE SESE SERS SESE TEE EES F 


* REPLY to Requestor * 
AAA AA AK AH A ROR RRR RE OR REE EE EE EE ECR AK EE 


WRITE message-out-record END-WRITE. 


RHKKKKKKKKE KEK KKK KERR KEKE KA RRR KKK ERK KKK KKK KKK KK RK KK KK RK 


* Error Handling Routine * 
eK KR ROR RO ORR ROR KERR ERE 
SHOWIT. 


ENTER TAL SQLCADISPLAY USING SQLCA, -1. 
* ENTER TAL DEBUG. 
MOVE 1 TO reply-header. 
?NOLIST 
SQLDO-O0 SECTION. 
ENTER TAL EXECSQL USING SQLINO , SQLCA. 
IF (SQLCODE OF SQLCA = 100 
PERFORM SHOWIT. 
IF (SQLCODE OF SQLCA < 0) 
PERFORM SHOWIT 
IF (SQLCODE OF SQLCA > 0) AND 
(SQLCODE OF SQLCA NOT EQUAL 100 ) 
PERFORM SHOWIT 
SQLDO-1 SECTION. 
ENTER TAL EXECSQL USING SQLIN1 , SQLCA. 
IF (SQLCODE OF SQLCA = 100 ) 
PERFORM SHOWIT . 
IF (SQLCODE OF SQLCA < Q) 
PERFORM SHOWIT  . 
IF (SQLCODE OF SQLCA > GO) AND 
(SQLCODE OF SQLCA NOT EQUAL 100 ) 
PERFORM SHOWIT 
SQLDO-2 SECTION. 
ENTER TAL EXECSQL USING SQLIN2 , SQLCA. 
IF (SQLCODE OF SQLCA = 100 
PERFORM SHOWIT ‘ 
IF (SQLCODE OF SQLCA < 0) 
PERFORM SHOWIT . 
IF (SQLCODE OF SQLCA > O) AND 
(SQLCODE OF SQLCA NOT EQUAL 100 ) 
PERFORM SHOWIT 
SQLDO-3 SECTION. 
ENTER TAL EXECSQL USING SQLIN3 , SQLCA. 
IF (SQLCODE OF SQLCA = 100 ) 
PERFORM SHOWIT 
IF (SQLCODE OF SQLCA < Q) 
PERFORM SHOWIT . 
IF (SQLCODE OF SQLCA > 0) AND 


sy 
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297. 
298. 
299. 
299. 
299. 


299 


299. 
299. 
299. 
299. 
299. 
299. 
299. 
299. 
299. 
299. 
299. 
299. 
299. 
299. 
299. 
299. 
299. 
299. 
299. 
299. 
299. 
299, 
299. 
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$SAUR. JGRAY .CCOBSQL 


(SQLCODE OF SQLCA NOT EQUAL 100 ) 
PERFORM SHOWIT 
2? TANDEM 


RFA FH TTR RRR HR TTR HR OR EOE RRERR ORRER EOR E EOR E RE E 
*BINDER - OBJECT FILE BINDER - 179621B41 - (O5JAN87) SYSTEM \TESS 


*Object file name is $SAUR.JGRAY.MCOBSQL 
*Object file timestamp is 18FEB87 18:43:03 
*Number of Binder errors = 0O 

*Number of Binder warnings = O 

*Code area size = O pages 

*Resident code size = 0 pages 

*Data area size = 1 pages 

*Extended data area size = O pages 

*Top of stack = O words 

*Number of code segments = 1 segment 
7SEARCH $SAUR.JGRAY.MCOBSQL 

RSQL RIOR EEE RR RR ERE EERE EE EEE EEE EEE ERR EEE RE REE EEE 


* SQL - COBOL SQL PREPROCESSOR - 19192B41 


* SQL - input source = $SAUR.JGRAY.COBSQL 

* SQL - output source = $SAUR.JGRAY.CCOBSQL 
* SQL - object file = $SAUR.JGRAY.MCOBSQL 
* SQL - date = 1987/02/18 - 18:43:28 


SQL FR ARR RRR RRR RRR RR RRR RoR RR 
* SQL ~- SUMMARY OF SQL PREPROCESSING 


* SQL - number of sql statements = 4 

* SQL - number of errors = 0 

* SQL - number of warnings = 0 

* SQL - preprocess cpu time = 00:00:02 
* SQL - total elapse time = 00:00:26 
* 


SQL OK BK OR KK KK OK KK KOK KKK KKK KK KKK KKK KK KEK KKK KK 


COBSQL for DebitCredit Transaction (ET1) 


87/02/18 


18:57:1 


1/ 
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$SAUR . JGRAY .CCOBSQL 


ENTRY POINT MAP BY NAME 


SP 


00 


PEP BASE 


002 


000003 


LIMIT ENTRY 


002046 000441 


ATTRS 


M 


COBSQL for DebitCredit Transaction (ET1) 


NAME 


ET1-COBSQL~SERVER 


DATE 


18FEB87 


B7/02/18 


TIME LANGUAGE SOURCE FILE 


18:57 COBOL85 


$SAUR.JGRAY.CCOBSQL 


18:57:1 


L! 
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$SAUR.JGRAY.CCOBSQL 


DATA BLOCK MAP BY NAME 


BASE 


000020 
ooo0000 
100341 
100341 
100000 
000053 
100115 


LIMIT 


000052 
000017 
104301 


100114 
001065 
100340 


TYPE 


SPECIAL 
SPECTAL 
SPECIAL 
SPECIAL 
SPECIAL 
OWN 

SPECIAL 


MODE 


WORD 
WORD 
WORD 
WORD 
WORD 
STRING 
WORD 


COBSQL for DebitCredit Transaction (ET1) 


NAME 


FERUG 

#G0 

#HIGHBUF 

#RQTB 

#RUCB 
ET1-COBSQL-SERVER 
ET 1-COBSQL-SERVER# 


DATE 


18FEB87 
18FEB87 
18FEB87 
18FEB87 
18FEB87 
18FEB87 
18FEB87 


LANGUAGE 


COBOL85 
COBOL85 
COBOL85 
COBOL85S 
COBOL85 
COBOL85 
COBOL85 


SOURCE FILE 


$SSAUR. 
$SSAUR. 
SSAUR. 
$SAUR. 
$SAUR. 
$SSAUR. 
$SAUR. 


JGRAY. 
JGRAY. 
JGRAY. 
JGRAY. 
JGRAY. 
. CCOBSQL 
JGRAY. 


JGRAY 


CCOBSQL 
CCOBSQL 
CCOBSQL 
CCOBSQL 
CCOBSQL 


CCOBSQL 


87/02/18 


18:57:1 


7 | 
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RUN TIME DATA UNIT MAP BY NAME 
TYPE LENGTH NAME 
SQL_SRC 001250 ET1-COBSQL-SERVER 


COBSQL for DebitCredit Transaction (&T1) 


DATE TIME LANGUAGE SOURCE FILE 


18FEBB7 18:43 RTDU $SAUR .JGRAY .COBSQL 


87/02/18 - 


18:57:1 


pl 


PAGE 14 $SAUR.JGRAY.CCOBSQL STATISTICS 87/02/18 ~— 18:57:31 


BINDER - OBJECT FILE BINDER - T9621B41 - (05JAN87) SYSTEM \TESS 
Object file name is $SAUR.JGRAY.RUNUNIT 
Object file timestamp is 18FEB87 18:57:13 
Number of Binder errors = 0 

Number of Binder warnings = 0O 

Primary data = 16 words 

Secondary data = 550 words 

Code area size = 2 pages 

Resident code size = O pages 

Data area size = 35 pages 

Extended data area size = O pages 

Top of stack = 566 words 

Number of code segments = 1 segment 


COBOL85 - T9257B40 - (30 OCT 86) 

The object file is executable on a Tandem NonStop System 
Number of compiler errors = 0 

Number of compiler warnings = 0 

Maximum symbol table size = 17034 bytes 

Elapsed time - 00:01:09 


Interface: 


Line Ending: 


Data Encoding: 


Fonts Available: 


XCP14-L 
Titanl0iso-P 
20149A-P 
20149B-P 
20149C-P 
Spokesman10-P 


Parallel/ 


CR,LF 


ASCII/7 


8958 
22092 
12536 
12600 
12700 
15930 


Bytes 
Bytes 
Bytes 
Bytes 
Bytes 
Bytes 


Revision Level: 


Rev. 
Rev, 
Rev. 
Rev. 
Rev. 


Rev. 


Job Status: 


Page 
Page 
Page 
Page 
Page 
Page 
Page 
Page 
Page 
Page 


:22 
2:22 
:22 
122 
2:22 
2:22 
222 
2:22 
222 
:26 
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S$BASE .GRAYTGU1.COBOL 


ANSI 1985 COBOL - T9257C00 - (15 JUL 87) 


Compiled: 


OOnNOUDWHN — 


10 


87/02/18 - 


7HEADING 
? SYMBOLS 
? INSPECT 


18:40:10 


Tandem COBOL85 (COO BE 


Source language: 
Default options: 


“COBSQL for DebitCredit Transaction (E£T1)”" 


IDENTIFICATION DIVISION. 


PROGRAM-~ID. 


Author. Praful Shah 


ET1-COBOL-Server. 


DATE-WRITTEN. December 1986. 


SECURITY. 


TA Version) 


COBOL-1985 Target machine: 
On (LIST,LMAP, SHOWCOPY , WARN) 


This server is designed to measure the performance of 
the ENSCRIBE database. It runs under the PATH 
environment. The requestor does the BEGIN/END 


transaction. 


WAY 


This server accepts a message from the the REQUESTOR, 
time stamps the transaction. It the updates t 


account, branch and 
of the transaction 
history file. 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 


SOURCE-COMPUTER. 
OBJECT-COMPUTER. 


INPUT-— 


OUTPUT SECTION. 


FILE-CONTROL. 


SELECT message-in 


teller records. At the end 
it writes a memo record to 


TANDEM/ 16. 
TANDEM/ 16. 


ASSIGN TO $RECEIVE 
ORGANIZATION IS SEQUENTIAL 
ACCESS MODE IS SEQUENTIAL 


FILE STATUS IS fi 


SELECT message-out 


le-stat. 


ASSIGN TO $RECEIVE 
ORGANIZATION IS SEQUENTIAL 
ACCESS MODE IS SEQUENTIAL 


FILE STATUS IS fi 


SELECT account 
ASSIGN TO account 
ORGANIZATION IS I 


le-stat. 


NDEXED 


ACCESS MODE IS RANDOM 
RECORD KEY IS account-number of account-record 


FILE STATUS IS fi 


SELECT branch 
ASSIGN TO branch 


le-stat. 


ORGANIZATION IS RELATIVE 


he 


the 


Tandem NonStop System 
Off (CODE,ICODE,MAP) 
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$BASE.GRAYTGU1. COBOL 


COBSQL for DebitCredit Transaction 


ACCESS IS RANDOM RELATIVE KEY IS branch-number-re} 
FILE STATUS IS file-stat. 


SELECT teller 
ASSIGN TO teller 
ORGANIZATION IS RELATIVE 
ACCESS IS RANDOM RELATIVE KEY IS teller-number-rel 
FILE STATUS IS file-stat. 


SELECT history 
ASSIGN TO history 
ORGANIZATION IS SEQUENTIAL 
ACCESS IS SEQUENTIAL 
FILE STATUS IS file-stat. 


BRK K ERK KAKA KER KRRKK KER KAKA K RK KAKA RRR KAKA KK AKA AK ROKR 


* In the RECEIVE CONTROL paragraph the TABLE OCCURS is” set * 
* to 2 since tne MAXLINKS to the server in PATHWAY has been * 
* set to 2. This should always match. * 


Ae A OR KK KO OO KK KR ORK KK OR KK KK KOK RK ORK KK KKK ROK KO KOK KOK KK 


RECEIVE-CONTROL. 
TABLE OCCURS 1 TIMES 
SYNCDEPTH LIMIT is 1 
REPLY CONTAINS message-out record. 
DATA DIVISION. 


FILE SECTION. 


Oe oe ok ee oie a ke ok oe eo ok ok RR ROR OR OR RRR ROOK OR KOK KOK 


* The message coming from the requestor looks like the following * 
* "“# 412 chars * 12 chars # 12 chars" * 
* “*123456789012*4567890 12345* 789012345678"012345678901" * 
* "* Account-num* teller-num * branch-num * descriptor " * 
* * 
*tlw: descriptor = network/local transaction. * 
* x 
ARR IR OR RR RR ORR RR OR ROR RRR ROR OK OK RR KR ROKR RR KK 


*tlw: f1114 and in-field4 added to message~-in-record. 
*tlw: this value will be used to keep track of remote 
*tlw: vs. tocal transactions. 


FD message-in 
LABEL RECORDS ARE OMITTED. 
01 message-in-record. 


O02 fill PIC X(1). 
O02 in-field! PIC X(12). 
O02 f1112 PIC X(1). 
02 in-field2 PIC X(12). 
O02 f1113 PIC X(1). 
02 in~field3 PIC xX(12). 
02 fil14 PIC X(1). 


02 in-fieid4 PIC X(12). 


(ET1) 


87/02/18 


18:40:31 
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$BASE.GRAYTGU1.COBOL 


tlw: 


COBSQL for DebitCredit Transaction (ET1) 


FD message-out 
LABEL RECORDS ARE OMITTED 
RECORD CONTAINS 102 CHARACTERS. 
01 message-out-record. 
02 reply-header PIC 9(4) COMP. 
02 out junk PIC X(100). 


account-balance field switched with account-branch field. 


FD account 
LABEL RECORDS ARE OMITTED 
RECORD CONTAINS 100 CHARACTERS. 
01 account-record. 


02 account-number PIC xX(12). 
02 account-balance PIC §9(10)V9(2). 
02 account-branch PIC 9(12). 
02 account-junk4 PIC xX(12). 
Q2 account-junk5S PIC S$9(4) COMP. 
02 account-junk6 PIC xX(€10). 
02 account-—junk7 PIC xX(10). 
02 account-junk8 PIC X(10). 
02 account-junk9 PIC X(10). 


O02 account-junkl0. 
03 account—-junki1 PIC $9(4) COMP. 
03 account-junk12 PIC X(8). 


FD branch 
LABEL RECORDS ARE OMITTED 
RECORD CONTAINS 100 CHARACTERS. 
O01 branch-record. 


02 branch-number PIC X(12). 
02 branch-balance PIC $9(10)V9(2). 
02 branch-junk3 PIC 9(12). 
O02 branch-junk4 PIC xX(12). 
02 branch-junk5S PIC S9(4) COMP. 
02 branch-junk6 PIC xX(10). 
02 branch-junk7 PIC xX(10). 
02 branch- junk8 PTC xX(10). 
02 branch-junk9 PIC xX(10). 


02 branch-junki0. 
03 branch-junkil PIC S9(4) COMP. 
03 branch-junki2 PIC X(8). 


FD teller 
LABEL RECORDS ARE OMITTED 
RECORD CONTAINS 100 CHARACTERS. 
QO1 teller-record. 


O02 teller-number PIC X(12). 
02 teller-balance PIC $§9(10)V9(2). 
02 teller-junk3 PIC 9(12). 
02 teller-junk4 PIC X(12). 
02 teller-junk5 PIC $9(4) COMP. 
O02 teller-junk6 PIC xX(10). 
O02 teller~junk? PIC X(10). 
O2 teller-junkB PIC X(10). 


02 teller-junk9 PIC xX(10). 


87/02/18 


18:40: 1 
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168 
169 


$BASE.GRAYTGU1.COBOL 


*tlw: 


01 
01 
01 
01 


*tlw: 


02 


teller-junki0O. 
03 teller-junki11 
O03 teller-junk12 


changed history-delta to 


FD history 
LABEL RECORDS ARE OMITTED 
RECORD CONTAINS 50 CHARACTERS. 

01 history-record. 


COBSQL for DebitCredit Transaction (£T1) 


PIC $9(4) COMP. 
ptc x(a 


Meu AQLGZ. 


history-descriptor. 


02 history-account-number PIC X(12). 
02 history-teller-number PIC xX(5). 
02 history~-branch-number PIC xX(5). 
02 hHistory-descriptor PIC $§9(10)V9(2). 
02 history-yymmdd PIC xX(6). 
02 history-hhmmsscc PIC xX(9). 
02 history-junk “PIC X(1). 
WORKING-STORAGE SECTION. 
file-stat PIC X(2). 
teller-number-rel PIC 9(12). 
branch-number-rel PIC 9(12). 
loop-record PIC 9. 
88 not-all-done VALUE OQ. 
88 all-done VALUE 1. 
fill4-ws, descriptor-ws, and descriptor-rd added to message-in-record. 
this value is used to keep track of remote vs. local transactions. 


*tlw: 


01 message-in-ws. 


02 


filli-ws 
account-number-ws 
fill2-ws 
teller-number-ws 
teller-number-rd 
fill3-ws 
branch-number-ws 
branch-number-rd 
fill4-ws 
descriptor-ws 
descriptor-rd 


PIC X(1). 
PIC X(12). 
PIC X(1). 
PIC X(12). 
REDEFINES teller-number-ws PIC 9(12). 
PIC X(1). 
PIC X(12). 
REDEFINES branch-number-ws’ PIC 9(12). 
PIC X(1). 
PIC X(12). 
REDEFINES descriptor-ws PIC 9(12). 


87/02/18 


18:40:43 
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210 / 

214 A RR RR ROR RE RR OR RR RK KK EK A KK KK ERK KK 
212 * Main routine * 
213 OR A ARR RRR RO OR ROR ORO RK EK EK ROR KK EK KEK KEK 
214 PROCEDURE DIVISION. 

215 

216 MAIN SECTION. 

217 

218 BEGIN-ET1-COBOL-server. 

219 

220 PERFORM Init-files. 

221 

222 PERFORM do-transaction UNTIL all-done. 

223 

224 PERFORM shut-files. 

225 


226 STOP RUN. 
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227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 


$BASE.GRAYTGU1.COBOL COBSQL for DebitCredit Transaction (ET1) 


/ 
KEKKKKKEKKKEERK KKK KK KKK KK KEK KKK KKK KKK KER KKK KK RK KK KK KEK KEKE KEKRKEKEKEKREKKE 
* Initialization, cpen $RECEIVE and ali disc fiies * 


PES SPP SLOSS SCL SLE SEL SESS eS ee Ce TAS ee Pe See CCS eee ee eee ee ee See ee eee ee 
Init-files. 
OPEN INPUT message-in SYNCDEPTH 1. 
OPEN OUTPUT message-out. 
OPEN I-O0 account SHARED. 
OPEN I-O teller SHARED. 
OPEN I-O branch SHARED. 
OPEN extend history SHARED. 
*tlw-: MOVE 00 TO reply~header. 


87/02/18 
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240 

241 Poe ECS SLESLOCCL CC CC LCL SSS TSS SECS SSE CES CCL LSE LSE LES CL EPS SECTS L ESE SS Eee 
242 * Shut down - close $RECEIVE and all disc files * 
243 KKK KKK KKAKKKKEKEKKEKEKKKKKKEKKEKEKEKKKKEKKKEKKKKEKKK KEKE KKK EEK EK KKK KKK 
244 

245 Shut-files. 

246 CLOSE message-in. 

247 CLOSE message-out. 

248 CLOSE account. 

249 CLOSE teller. 

250 CLOSE branch. 


251 CLOSE history. 


PAGE 8 


252 
253 
264 
255 
256 


$BASE.GRAYTGU1. COBOL 


COBSQL for DebitCredit Transaction (ET1) 


f 
do-transaction. 


* read from $receive and get account~num, branch-num and teller-num. * 


* Time stamp the transaction. * 
PES ECESTOLCESEOSOSSLOLCE CE SESE SCE SESE CCS SSS ESS STS eT eT ST Tee Tee eT Te Te eT TTT TT 


*tlw 
MOVE OO TO reply-header. 


READ message-in. 
if file-stat not equal to zero move 1 to reply-header. 


MOVE message-~in-record TO message-in-ws. 


ACCEPT history-yymmdd FROM DATE. 
ACCEPT history-hhmmsscc FROM TIME. 


MOVE account-number-ws TO account~number. 
MOVE teller-number-rd TO teller-number-rel. 
MOVE branch-number-ws TO branch-number-rel. 


RRR KE KEK KKK KKK KKK KEK KKK AK KK RE KKK RE KEE KK KEK KKK KKK KKK KKK KE AKA KAA KE 


* Read the account record and update the record. * 
RR KK KKK KKK KK KKK KKK KKK KEKKAKEKKKKKEKKRKKKKKAKKKKKKKKKKKKKKKKKKKK EK KK KKK KK 


READ account RECORD 


WITH LOCK 
KEY IS account-number 
END-READ. 
if file-stat not equal to zero move 2 to reply-header. 


ADD descriptor-rd to account-balance. 


REWRITE account-record END-REWRITE. 
if file-stat not equal to zero move 3 to reply-header. 


KARR KR KE RK KEK KK KKK KKK KKK EK KKK KKK KKK KKK KEK KKK EK KE KKK KK EK KK KK 


* Read the teller record and update the record. ¥ 
Ae KR a a KR OR KK OR OK 


READ teller RECORD WITH LOCK END-READ. 
if file-stat not equal to zero move 4 to reply~header. 


ADD descriptor-rd TO teller-balance. 


REWRITE teller-record END-REWRITE. 
if file-stat not equal to zero move 5 to repnly-header. 


KKK KK KE OK EK EK KEE KEE KEKE EEK EEE KEE EEE EEK EE 


* read the branch record and update the record. * 
KE EEE KEE EERE EEE EEE EEE EE EEE EEE EE 


READ branch RECORD WITH LOCK END-READ. 
if file-stat not equal to zero move 6 to reply-header. 


87/02/18 
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309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 


$BASE.GRAYTGU1.COBOL 


ADD descriptor-rd to branch-balance. 


REWRITE branch-~record END-REWRITE. 
if file-stat not equal to zero move 7 to reply-header. 


KKK KKK KEKE KKK KKK KEK KRKKKKKK EERE KEKE KEK KK 


* Memo post to history file. ¥ 
3K RK KK KKK KE KOK KK KOK KE EE KK KE KK KK KK KK KK KK KEK 


MOVE account-number TO history-account~number. 
MOVE teller-number-ws TO history-teller-number. 

MOVE branch-number-ws TO history-branch-number. 

MOVE descriptor-rd TO history-descriptor. 


WRITE history-record END-WRITE. 
if file-stat not equal to zero move 8 to reply-header. 


te eK OK oR RK OK KKK KR KK KE KAR KKK KKK KR KKK EKA KKK KK RE KKK KK KK KKK KKK KKK KKK 


* Reply back to the requestor * 
a RR ROK RK AKA KA AERA KR AARKKAKAKARE AR KRARKRARAAR RAKRE KK R E E EK 


WRITE message-out-record END-WRITE. 


RK KKK KKK KK KK KK KK KK KKK KKK KK KKK KKK KK KK KKK KKK KK KOK KEK KK KKK KKK KK KEK KK KK KK 


* the transaction is finished * 
HERR ER OK RRR ROR RRR ROR ORO ROOK OR ROR ORE 


SHOWIT. 
ENTER TAL DEBUG. 


COBSQL for DebitCredit Transaction (ET1) 
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$BASE.GRAYTGU1. 


ENTRY POINT MAP BY NAME 


SP 


00 


PEP 


002 


BASE LIMIT 


000003 001460 


COBOL 


ENTRY 


000023 


ATTRS 


COBSQL for DebitCredit Transaction (ET1) 


NAME DATE TIME LANGUAGE 


ET1-COBOL-SERVER 18FEB87 18:40 COBOL85 


87/02/18 


$BASE.GRAYTGU1. COBOL 


18:40:1 


Hi 
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$BASE.GRAYTGU1 . COBOL 


DATA BLOCK MAP BY NAME 


BASE 


000020 
000000 
100643 
100643 
100000 
000053 
100115 


LIMIT 


000052 
000017 
104355 


100114 
000514 
100642 


TYPE 


SPECIAL 
SPECIAL 
SPECIAL 
SPECIAL 
SPECIAL 
OWN 

SPECIAL 


MODE 


WORD 
WORD 
WORD 
WORD 
wORD 
STRING 
wORD 


COBSQL for DebitCredit Transaction (ET1) 


NAME 


#ERUG 

#G0 

#HIGHBUF 

#RQTB 

#RUCB 
ET1-COBOL-SERVER 
ET 1-COBOL-SERVER# 


DATE 


18FEB87 
18FEB87 
18FEB87 
18FEB87 
18FEBB7 
18FEB87 
18FEB87 


LANGUAGE 


COBOL85 
COBOL85 
COBOL85 
COBOL85 
COBOL85 
COBOL85 
COBOL85 


SOURCE FILE 


$BASE. 
$BASE. 
$BASE. 
$BASE. 
$BASE. 
$BASE. 
$BASE. 


GRAYTGU1. 


GRAYTGU1 
GRAYTGU1 
GRAYTGU1 
GRAYTGU1 
GRAYTGU1 
GRAYTGU1 


87/02/18 - 


COBOL 


. COBOL 
. COBOL 
. COBOL 
. COBOL 
- COBOL 
. COBOL 


18:40:1 
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BINDER - OBJECT FILE BINDER - T9621COO - (15JUL87) SYSTEM \FOXII 
Object file name is $BASE.GRAYTGU1.RUNUNIT 
Object file timestamp is 18FEB87 18:40:10 
Number of Binder errors = O 

Number of Binder warnings = 0 

Primary data = 16 words 

Secondary data = 317 words 

Code area size = 1 pages 

Resident code size = O pages 

Data area size = 35 pages 

Extended data area size = O pages 

Top of stack = 333 words 

Number of code segments = 1 segment 


COBOL85 - T9257C00 - (15 JUL 87) 
The object file is executable on a Tandem NonStop System 


Number of compiler errors = Q 
Number of compiler warnings = 0 
Maximum symbol table size = 12280 bytes 


Elapsed time - 00:00:27 


READER COMMENT CARD 


Tandem welcomes your comments on the quality and usefulness of its 
software documentation. Does this manual serve your needs? If not, how 
could we improve it? Your comments will be forwarded to the writer for review 
and action, as appropriate. 


If your answer to any of the questions below is “no,” please supply detailed 
information, including page numbers, under Comments. Use additional 
sheets if necessary. 


> Is this manual technically accurate? Yes No 0 
No 
No U1 


No 0 


> Does it provide the information you need? Yes 


> Are the organization and content clear? Yes 


OOO 


> Are the format and packaging convenient? Yes 


Comments 


Name Date 
Company 
Address 


City/State Zip 


NonStop SQL Benchmark 
Workbook 


NonStop™ Systems 
First Edition: Part No. 84160 
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